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People productivity. It’s more important than ever. 
And a good database system can mean real 
productivity. 

USER -11 is a high-performance database system. 

It is a fact: Software designed with USER-11 is 
built more quickly, operates more reliably, and 
performs better than other software techniques. 

USER-11 is unique. It’s easy to install. Easy to 
learn. And easy to apply. Adaptive tools and a 
standard approach ensure that maintenance is 
easier than ever. 

A key to USER-11 ’s success is its powerful, 
dictionary-based modules. Software developers 
simply describe and assemble these modules to 
create custom business packages—at an 
unprecedented rate. 


Naturally USER-11 is supported with excellent 
documentation and a variety of training options 
for beginner to expert. Our commitment is to your 
complete satisfaction. 

Whether you are a software provider or a software 
user, we guarantee you will be delighted. 

Ask us about USER-11 and our family of business 
software products, or better yet, ask a 
productive USER! 

North County 
Computer Services, Inc. 

2235 Meyers Ave., 

Escondido, California 92025 
(619) 745-6006, Telex: 182773 

‘USER-11 is currently available for DEC computers 
using the RSTS and VMS operating systems. 
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JVhats the most efficient way 
to distribute financial models 




* DEC, VAX and PDP are registered trademarks of Digital Equipment Corporation. 
MAPS, MAPS /Host and M APS! Pro are registered trademarks of Ross Systems Incorporated. 
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... Td like to know more about how MAPS can offer me true 
distributed financial planning. 

Please send more information onOMA PS/Host □ MA PS/Pro 

□ I/We have access to a VAX or PDP-11 

□ Have a Ross representative call on me 
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MAPS™ financial modeling soft¬ 
ware lets you offer your decision 
makers a single, comprehensive 
solution to their complex financial 
processing needs. 

M APS/Pro software is designed to 
run on DEC’S powerful new Profes¬ 
sional 350 desktop computer—to 
give you the full benefit of the 350’s 
P/OS multi-tasking operating sys¬ 
tem, 5MB Winchester disk, bit¬ 
mapped graphics, special function 
keys and application menus. Fully- 
compatible M APS/Host software 
runs on PDP-11 and VAX computers. 

Working independently at desktop 
350s, MAPS lets you and your users 
take advantage of state-of-the-art 
microprocessing hardware and 



With 350s linked together, MAPS’ 
common planning language and 
centrally-administered data base 
allow users to exchange data and fi¬ 
nancial models directly. Plus users 
can upload applications to a PDP-11 
or VAX when additional computing 
power is needed—making truly dis¬ 
tributed financial planning possible. 

Designed for total financial decision 
support, MAPS features unlimited 
logic, professional report formats, 
sophisticated consolidation capabil¬ 
ities and advanced data calcula¬ 
tions. Plus instant access to a com¬ 
mon data base and model library 
that maximizes user efficiency. 

With MAPS there’s no limit to the 
size or complexity of the system you 
can develop. Yet MAPS’online 
Help, Business English, and visual 
data editing make MAPS easy to 
use. And, fully-documented, it’s 
easy to learn. What’s more, Ross 
“Hot-line” support is as close as the 
phone if a problem does occur. 

For more information on MAPS 
software, just return our coupon. 

Or call Ross Systems toll free at 
(800) 547-1000 (in California, call 
(415)856-1100). 

rs 

ROSS SYSTEMS 

I860 Embarcadero Road 
Palo Alto, CA 94303 
Regional offices in San Francisco , 
New York , Dallas , Los Angeles. 
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DIGICALC, Powerful Financial Forecasting 


With incredible range and depth, DIGICALC can provide the executive, 
accountant or professional with a worksheet capable of multi-year forecasts, 
budgeting and consolidations. 

DIGICALC is designed for use on DEC* systems exclusively. The signifi¬ 
cance of its design is the incomparable degree of "help" built into it. 
DIGICALC has been called "the most user friendly program available for 
DEC computers." 

DIGICALC runs on VMS*, RSTS/E*. More information is available in 
brochure form, but to really feel the power of DIGICALC call today for a 
free dial-up demonstration. 


• FINANCIAL MODELING. 

• ON-LINE HELP AND SELF TEACHING 
MODE. 

• TEN KEY NUMERIC DATA ENTRY. 

• EXTERNAL FILE INTERFACE. 

• "BOARDROOM QUALITY" REPORTS. 

• EXTENSIVE MATH FUNCTIONS 
ALGEBRAIC FUNCTIONAL LOGICAL 
SCIENTIFIC USER DEFINED FUNCTIONS. 

• SAVES AND RECALLS WORKSHEETS. 

• REGRESSION FOR FOUR PERIOD WITH 
BI-VARIANCE AND NINE PERIOD WITH 
FIXED VARIANCE. 

• DYNAMIC NUMERIC AND ALPHABETIC 
SORTING OF ENTRIES BY ROW FOR AN 
ENTIRE WORKSHEET. 

• CONSOLIDATION OF ANY NUMBER OF 
WORKSHEETS INTO A SINGLE SUM¬ 
MARIZED OUTPUT WORKSHEET. 

SYSTEMS INCORPORATED 

16902 Redmond Way 
Redmond, WA 98052 U.S.A. 

(206) 881-2331 

*DEC, VMS, RSTS/E are registered 
trademarks of Digital Equipment Corporation 
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From the 
Publishers ... 


THE RIGHT TOOL 


Carl B. Marbach 


With the correct tool some jobs that are 
otherwise impossible are easy. I learned that 
fact one summer working in a gasoline station. 
Changing drum brakes is a cinch with the brake 
tools, without them it is dangerous to fingers 
and other anatomical parts. Spark plugs can be 
changed easily if you have a long 7/8" socket 
and wrench, try it with an open end wrench and 
you'll wind up with skinned knuckles. 

With computers the same rule applies. 
Notice how programmers run to get the best 
tool; TECO still lives. EDT can’t be lived without 
and LINED, the PDP-10 original line oriented 
editor died. Other tools we use include cross 
reference programs, load maps and debuggers. 
We use the computer itself as a tool for pro¬ 
gramming. 

What happens if you don’t have a tool you 
need? The job can usually be done but it takes 
longer and has more mishaps along the way. In 
the early versions of RSTS we didn’t have multi¬ 
language capability. Some independent soft¬ 
ware people solved that one. but it wasn’t as 
straightforward as it is now. Want to write 
FORTRAN? Now you can use the best of the 
PDP-11 compilers on RSTS. but this was not 
always - the case. We need the best tools 
available because without them we cannot 
make the best use of our system. 

Sometimes RSTS has lagged behind the 
others in providing needed tools. DECNET for 
RSTS was last to be implemented and Phase 4 is 
not likely to be available at all. RSX has I and D 
space set up so that a program can address an 
additional 64K. I have been told that doing the 
same for RSTS is possible, but it is not planned. 
Needed features for BASIC-PLUS are not being 
added for lack of space (it is rumored to be 
within one or two bytes of its limit). RSTS is lag¬ 
ging again, but this time I think it is very 
serious. 

DEC has put forward a new line of "per¬ 
sonal" computers. Included in this line is the 
PROFESSIONAL series based on the PDP-11. Un¬ 
fortunately. the operating system used on the 
Professionals is a derivative of RSX called POS 
(Professional Operating System). DEC is pro¬ 
viding a “tool kit" for use on VAX and RSX for 
program development for software to be run on 
the Professional computers. NO RSTS TOOLKIT! 
Why? Is it too hard to do? I can write programs 
on RSTS for both VAX and RSX. why not the 
Professional? Is RSTS not important enough? A 
popular operating system for the personal com¬ 
puters in the marketplace today is CP/M (By 
Digital Research. Inc.) which most observers 
think was modeled after RSTS. According to 
DEC. they sold more RSTS systems last year 
than in any year prior to that. It is important. 
You and I know that. 

We now have Version 8.0 soon to be re¬ 
leased. It has things that I can't imagine were 
important to many of us. How many really 
wanted a new directory structure? How many 
needed it? I have had reports that BASIC V2 
(Version 2 of BASIC-PLUS 2) has many RSTS 
problems, not the least of which is a faulty in¬ 
stallation procedure. Shops currently running 
BASIC-PLUS 2 can not just put the new product 
up and have it work; one commercial installa¬ 
tion submitted six SPR's in one day! They were 
told by telephone response that these might not 


be fixed until the next release which will ONLY 
run on V8.0 of RSTS. 

What are OUR developers thinking about. 
We need tools! I have taken the position that in¬ 
tegrating DEC’S new personal computers into 
our existing systems is critical to keeping us up 
to date. But. no tools! Can I write a BASIC-PLUS 
2 program and run it on a Professional 350? I 
think I can; but I could do it better if the people 
who represent us at DEC would provide us with 
some of the things we really need in timely 
fashion. Why RSX and VAX and not RSTS. 
Scream. Holler. Yell. 


SOFTWARE — A FLOPPY FUTURE 

Dave Mallery 


I have been thinking about software (as a 
business) and some of the futures that I can 
see . . . 

First of all. a survey: 


Price Range 

$50-$200 


Market 
10000 + 
mass merchant 
mail order 
blister pack 


$$ Expected 
$ 1 , 000,000 


$500-52500 500-2000 units $ 1.000.000 

national advt 
mail and phone 


$5000-$ 15000 250-500 units $ 1.000.000 

national advt 
mail blitz 
oem and rep 
small sales force 


$25.000-$75.000 20-100 units $2,000,000 

vertical markets 
3-piece suits 
own oem set-up 


It seems that in every case, there is about 
the same amount of money to be made, and the 
market definition drives the price. I repeat that 
this is the current situation, not the future. 

Whether you noticed or not. the world as 
we knew it has just changed. The change is not 
limited to steel-workers, auto assemblers and 
tire makers. 

Just as new technologies and cheaper 
overhead finished off the above industries as we 
know them, the existence (real or imagined) of a 
$10,000 PDP/11 under your desk and a spread 
sheet in your terminal (Rainbow or Pro) has 
changed the way our industry will operate in the 
future. Check out Lisa. 1,2.3 and the like. Take a 
good look ... a very good look. 

I note with interest that a VAX 750. con¬ 
figured to perform in 11 /70 dimensions, costs 
today what the 11 /70 cost in 1975.1 guess that 
for a few more years. DEC will be able to sell big 
Caddies and Lincolns to the affluent few. After 
all. they have to get the billions invested in VMS 
back somehow. 

The bulletin that I have for you today is 
that $3000 machines don't use $10,000 soft¬ 
ware. Dollar-fifty gas does not run 8 mpg 
chariots, (for long). . . 

Some questions (sans answers): 

1) Will Computerland and the like control 
all future software distribution? 

2) Who will be able to afford the outlay to 
create software for mass markets since break¬ 
even will be at 5000 units per annum? 

3) How do you do a new release or a 
maintenance update for an $85 package with 
10.000 users? 

4) Ain't it fun to be alive? 9 
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BEFORE you add memory 
(or anything else) 
to increase system performance 



you should add dopter! 

DOPTER is an easy to use RSTS/E disk copying program which 

INCREASES SYSTEM PERFORMANCE UP TO 50%. 


DOPTER performs all of the standard functions 
necessary to structure a RSTS/E disk volume and 
automatically does the following: 

• Places all files and free space in their optimum 
positions. 

• Produces better optimized MFD/UFD’s than 
REORDR. 

• Deletes unused file attributes from source, task, 
and object library files saving UFD and cache 
accesses. 

• Places and pre-extends the MFD. 



5522 Loch More Court • Dublin, Ohio 43017 • 614-265-' 


• Places the most used files at the front of the 
UFD’s. 

• Places the UFD’s with the most activity toward the 
front of the MFD. 

For More Information 

If you would like more information on how you can 
increase the performance of your RSTS/E system 
with DOPTER and a free copy of "RSTS/E DISK 
OPTIMIZATION IN A MULTI-USER 
ENVIRONMENT”, phone or write SPH today. 

RSTS/E is a registered trademark of Digital Equipment Corporation. 

System 
Performance 
House, Inc. 
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LETTERS to the RSTS Pro... 


Send letters to: Letters to the RSTS Pro. P.O. Box 
361. Ft. Washington. PA 19034-0361. 


A short note that you may find suitable 
for the RSTS Professional letters column. 

I was asked if it was possible to make the 
“DETACH” SYS call non-priviledged. I 
said “No” but started looking and seem to 
have found a patch that allows it. 

The patch is an adaptation of feature 
patch 3.5.4. That patch told how to make 
privileged, several non-privileged SYS calls. 
In essence, it told how to turn on a bit for 
each call in a table. My patch turns OFF 
that bit for the appropriate table entry. 
Here it is: 

RUN JONLPAT 

Command File Name 9 <cr> (RETURN for manual patching) 
File to Patch? <lf> (LINEFEED to patch installed 

File found in account [0,1] mon itor) 

Module name 9 RSTS 
Base address 9 $UU0TB 
Offset address 9 7-UU$MIN*2 
Base Offset Old New 9 

?????? ?????? ?????? ? Q4177776 

?????? ?????? ?????? ? *C (Uparrow-C to exit) 

The patch has been tried and tested on 
RSTS 7.0, 7.1, and 7.2. The “old” value 
that’s changed varies from one release to 
another, and possibly from one version of a 
release to another. But the detach call does 
become non-privileged, so I must be doing 
something right. I also suspect that it will be 
relatively immune to changes in RSTS. 

If anyone does choose to apply this 
patch, they may want to apply the sequence 
number part of the original (Base: $$0305, 
Offset: O, set to: QI200) to indicate that a 
“fiddle” has been done. They may also 
want to keep the “old” value just in case 
they want to put it back sometime (though 
setting that location to Q! 1 will do just as 
well). 

Tom Britton, Sr. Systems Programmer 
CBL Canterbury Limited 
New Zealand 

* * * 

I liked Allan Woloshin’s article on the 
Enable/34. However, there are some things 
that I would like to add, in the hope that it 
might assist some readers. We have a 
PDP-11/45 with 512Kw (and an Enable/34, 
of course). 

One disadvantage not mentioned is that 
data space is disabled by the Enable 
patches. This means fewer small buffers on 
your system, if that is a concern. Also, not 
only does the CPU not go any faster, it ac¬ 
tually slows down! Technically, the CPU 
itself runs at the same speed, but the Enable 
slows memory access down. Someone from 
Able Computer mentioned a 10% reduction 
in memory speed. 1 have no benchmarks to 
prove or disprove this. I will say, however, 
that even a 10% reduction in memory speed 
is a vast improvement over being disk- 
bound. 

I take issue with the statement that the 
Enable is difficult to install. The documen¬ 
tation is sufficient and we were up within a 
half-hour. Maybe this is a function of the 


difference between a PDP-11/34 and a 
PDP-11/45. 

We, too, experienced some difficulties 
(after the Enable was installed) having to do 
with Tape Controller activity and bus ter¬ 
mination. The worst part of the entire 
ordeal was not having any diagnostics. Sup¬ 
posedly, according to our friendly Able 
technician, they have finally released 
diagnostics. I’ll believe it when I see it. I 
heard something similar over one year ago, 
but we never saw the software. 

Overall, I was pleased with Able Com¬ 
puter’s assistance and the dramatic perfor¬ 
mance increase after installing the Enable. 
If asked — “Are the headaches worth the 
extra memory?” — I would have to say an 
wrthesitant, “Yes!” All of our Run Time 
Systems are now resident. We have resident 
libraries for the first time, more than a 
token XBUF, and almost no swapping. 

My advice (if anyone wants it) is to add 
an Enable if you have 11/45 or some other 
18 bit machine. If you have an 11/34, then 
sell the CPU and replace it with an 11/44 
and extra memory. That would be more 
cost-effective. Depending on where you buy 
your parts, it may be outright less expen¬ 
sive. 

As of last fall, we got an 11/70 to supple¬ 
ment our 11/45. The 11/70 is faster, it has 
CACHE and 14 MB more memory (and 
therefore more XBUF). Yet, the 11/45 has 
followed right on its heels. From a user’s 
standpoint — even with 30 jobs on the 
system — they cannot tell the difference 
between the 11/70. Compare that to one 
year ago, when it took five minutes to log¬ 
on without the Enable, and I think you’ll 
understand my favorable attitude toward it. 

Alan Conroy, System Manager 
Seattle Pacific University, Seattle, WA 

* * * 

In any situation there are PROS and 
CONS. I’m glad to see that the ENABLE 
article (FEB ‘83) was presented with both. 
I’m sure as time goes on, any vendor can 
and does iron the bugs out of their hard¬ 
ware. But its important for anyone to be 
careful when purchasing hardware (even 
from DEC), since bugs are inevitable in new 
technology. Keep an eye out for my next ar¬ 
ticle: “Buyer Beware!!” 

Steve Roy 
Diversified Consulting 
Bloomfield, CT 

* * * 

Just a note to tell you how much I en¬ 
joyed your article on “Decus in Australia” 
in the December RSTS Pro. A very glowing 
report and, in contrast with many US 
visitors, you got (almost) all your facts 
right! A few points you might find of in¬ 
terest: 

• The “bedroom communities” and 
“minor cities” you refer to, are indeed 
called “suburbs” locally. 


• Canberra was actually created to be the 
Australian capital. The site for Canberra 
was chosen to be halfway between Sydney 
& Melbourne, to prevent rivalry. 

• No grafitti in Melbourne? I’ve seen 
plenty — but then I haven’t seen yours! 

• One wallaby, two wallabies. 

• The Koala is related to the Wombat and 
is definitey NOT a bear! 

Any chance of copies of some of the 
photos - particularly those of Chris, 
yourself, Carey (in the library booth) and 
myself? 

I’m glad you enjoyed your visit to 
Australia & your participation in Decus. I 
certainly enoyed making your acquaintence 
and benefiting from your (and Dave’s) 
knowledge and experience. 

Your editorial in the “RSTS Profes¬ 
sional” of December 1982 (“If you want it 
you have to ask for it”) was discussed at the 
December meeting of the Decus Australia 
Board. As a RSTS person and a represen¬ 
tative from the world of commerce, I was 
asked to write to you on behalf of the whole 
Board, to express our appreciation. 

We in Decus Australia have a wish to 
handle the “Commercialism” issue both 
realistically and responsibly. We are pleased 
that your editorial was written in that same 
spirit, presenting what we feel to be an ac¬ 
curate reflection of our attitude, to the 
RSTS community. 

Jo Kruithof, Decus Australia 
* * * 

I started reading and enjoying the RSTS 
Professional about six months ago and I 
believe that there has been an article on the 
advantages of task-building Basic-Plus pro¬ 
grammes against RSX using Digital’s 
CSPCOM which is bundled into Version 
7.0 and onwards. 

Bearing in mind the volume of sites 
around the world which are still using 
Basic-Plus (as opposed to Basic-Plus + 2) I 
do not think that it has been brought home 
to your readers the advantages which this 
process can bring. 

We have developed an extensive account- 
ting package known as INCA which con¬ 
sists of some 150 Basic-Plus programmes 
and recently completed the task-building of 
this suite. In order to obtain some measure 
of the gain from this process we ran two 
bench-mark tests, on our 11/34 running 
under RSTS V7.2, first under the .BAC 
programmes and then under the .TSK pro¬ 
grammes. Each bench-mark consisted of a 
series of different operations (i.e. file 
merge, file update and print to spool file) 
and as it happened, under .BAC the elapse 
time was 700 minutes and 701 minutes. 
Under .TSK the elapsed time was 450 
minutes and 429 minutes respectively. 

The run time statistics were even more 
impressive. Under .BAC they totalled 
36,750 and 36,887 CPU seconds whereas 
under .TSK they only logged up 16,559 and 
16,962 seconds. 

. . . continued on page 70 
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EMULEX TALKS DEC 


TAMING THE EAGLE... 

High-speed disk drives, like the Fujitsu Eagle, on your Q-bus? You bet, with Emulex’s new 
SC03. This single-board controller supports full 22-bit addressing, boasts 14-sector buffering, and 
can handle 32 different combinations of drive configurations and much more—all for $2800 list. 

Current emulations: single or multiple RM02, RM05, RM80 or RP06’s in either standard or 
expanded versions. You can look for the models that support the Eagle in April. 


THROUGHPUT, THROUGHPUT, AND MORE THROUGHPUT... 

Why should you VAX-750 and 780 users wait in a data traffic jam on the Unibus? An Emulex- 
controlled subsystem incorporating a CDC, Fujitsu, or other SMD disk drive can hook you right into 
the high-speed CMI or SBI bus. 

Q-bus and Unibus environmentalists, take heart: You can plug an Emu lex-packaged subsystem 
into Q-bus and Unibus models and gain efficiency—like no more infuriating, software-crunching 
“data lates’.’ 


BUSY SIGNALS... 

All you DMF-32 dependent VAXers can expand communications with the DMF-32 emulating 
Fmodels of Emulex’s CS11 and CS21 communications MUXes. The F’s offer 16 to 48 remote modem- 
controlled lines, compared to two remote modem-controlled lines per DMF-32. Present CS11-21ers 
can upgrade to the F models via a $350 PROM change. 

What’s more, Emulex hears that DMF-32’s are available from DEC only on certain VAX-11 models, 
and then only after a wait. The F’s are available now for al[ VAX-lls. 


RECIPE FOR VAX STORAGE... 

Take one Fujitsu Eagle, add one CDC Keystone streamer for backup, mix well with an Emulex 
disk controller and an Emulex tape coupler, and pour into a 42-inch DEC-compatible cabinet. The 
result: The PXD51 Series, a complete line of high-speed, high-reliability mass-storage subsystems 
that provide combined disk and tape capability. 

Storage capacities: 349 to 414 MBytes. Prices from $26,150. Compare that to the competition, 
byte for byte. 


FROM THE EMULEX FILE... 

Emulex’s figures for the first half of FY ’83 are in: Revenues up 98 percent; earnings up 120 
percent; earnings per share up 93 percent (that reflects our second public offering, completed in 
October). Emulex has reduced prices on selected Q-bus and Unibus products—SC02, SC04, TC01, 
SC21/V, and TC11. Special invitation: Next time you’re in Southern California, give us a call to sched¬ 
ule a visit to our new 70,000 square-foot home in Costa Mesa, and we’ll talk DEC there. 



EMULEX 


3545 Harbor Blvd., RO. Box 6725. 

Costa Mesa, California 92626, 

Toll Free (800) 854-7112, In Calif. (714) 662-5600. 

CIRCLE 58 ON READER CARD 


(DEC. VAX. Umbus. and Q-bus are trademarks of Digital Equipment Corporation Eagle is a trademark of Fuiitsu Limited. CDC and Keystone are trademarks of Control Data Corporation.) 












THE RSTS/E BACKGROUND 

By Michael H. Koplitz 


Background processing is used to allow a user to ac¬ 
complish a task without tying up his terminal or his time. 
While a background process is running, the user can con¬ 
tinue his efforts in other areas. RSTS/E allows a type of 
background processing with the BATCH system, which is 
part of the spooling package. APTK and ATPRO could be 
thought of as background processors, except that the ter¬ 
minal is tied up. Background, therefore, has not been 
available under RSTS/E until now. 

THE PSEUDO KEYBOARD 

To be able to create the illusion of background, the 
RSTS/E feature of the pseudo keyboard is used. A pseudo 
keyboard is a logical device which has all of the 
characteristics of a terminal, but there is not any physical 
terminal associated with it. The pseudo keyboard has both 
input and output buffers. Naturally, programs can access 
these buffers. 

The number of pseudo keyboards is determined during 
SYSGEN time. RSTS/E assigns the device name PKn: to each 
pseudo keyboard and associates each with a keyboard unit 
number, KBn:. A physical keyboard is not allocated to the 
pseudo keyboards. Therefore if eight pseudo keyboards are 
generated during SYSGEN, the first non-pseudo keyboard 
would be KB9:. 

Usage of a pseudo keyboard requires a controlling pro¬ 
gram. The pseudo keyboard will respond to RSTS/E com¬ 
mands the same as any other terminal on the system would. 
The actual input/output buffers for the pseudo keyboard 
are the input/output buffers from the controlling program. 
The controlling program will OPEN the pseudo keyboard on 
a RSTS/E channel. This causes input/output buffers to be 
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PSEUDO KEYBOARD OPERATIONS 


created. These buffers are associated with the pseudo 
keyboard. 

PSEUDO KEYBOARD OPERATIONS 

The controlling job uses the pseudo keyboard (PKn:) to 
perform input and output operations to the controlled job. 
The controlled job accepts the commands and returns infor¬ 
mation to a keyboard number (KBn:). The controlled job 
does not know that it is dealing with a pseudo keyboard 
when it accesses KBn:. 

USING A PSEUDO KEYBOARD 

Utilization of a pseudo keyboard is done via the BASIC- 
PLUS or BASIC-PLUS-2 language. An "OPEN" statement is 
used to access a pseudo keyboard. The pseudo keyboard is 
treated like a file. 

100 OPEN “PK1:" AS FILE *1% 

This statement will open PK1: on channel one. PK1: will 
translate into KB3:. If KB3: is "opened" by the controlling 
job, an error will be generated. As far as the controlling job 
knows, KB3: is disabled. 

Two errors can occur on the open statement. ?N0T A 
VALID DEVICE (ERR = 6) can occur if the pseudo keyboard 
specified does not exist on the system. If the pseudo 
keyboard requested is in use the error 7DEVICE NOT 
AVAILABLE is generated. 

CREATING THE JOB 

The pseudo keyboard must first be opened on a channel 
before the job can be created. The job is then created by 
placing a valid sign-on command in the output buffer of the 
pseudo keyboard channel. PRINT or PUT statements are 
used to place commands into the output buffer. Remember 
that the output buffer for the pseudo keyboard from the 
controlling job becomes the input buffer for the controlled 
job. For example, the following PRINT statement will invoke 
LOGIN. 

10 PRINT #1%. RECORD 1%, "HELLO":CHR$(13%) : 
RSTS/E will generate a <CR> and <LF> for every record 
sent to the pseudo keyboard. Therefore, the PRINT state¬ 
ment MUST have the semicolon following it if a CHR$(13%) 
is appended to the statement. A PUT statement would 
therefore require the CHR$(13%). 

A GET statement, discussed later, is used to retrieve the 

from LOGIN. Then the account number and the 
password are transmitted to the pseudo keyboard. The en¬ 
tire login procedure can be condensed into one statement: 

10 PRINT *1%. RECORD 1%, ""HELLO 
100.100;DEM0":CHR$(13%) 

SENDING COMMANDS TO THE CONTROLLED JOB 

The PRINT and PUT statements are used to send com- 
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WHAT YOU DON'T KNOW 
ABOUT YOUR DISKS IS 
COSTING YOU MONEY 



If your disk looks like this, you’re wasting system performance. 



If your disk looks like this, you’re using DISKIT. 


When the job you’re running requires reading the 
“red” file, it naturally happens faster on a well- 
ordered disk. Disks become “fragmented” as you 
use your computer. The system slows down. And 
that costs you money. 

Now, you can restructure your disks and get back 
that lost performance (up to 50%) without spending 
a dime on new hardware. DISKIT is the original 
software system that makes this possible. 

But don’t confuse DISKIT with other system 
utilities, DISKIT is a complete “software tool kit” 
that optimizes your RSTS/E system. 


DISKIT is: 

• DSU — The utility which restructures the infor¬ 
mation on your disk, making data fast and easy 
to access. 

• DIR — The incredible directory tool that finds 
files at the rate of 400 per second. 

• RDR — Reorders disk directories 30 times faster 
than ever before possible. 

• OPEN — Displays complete job statistics and 
file activity so you can see what your system is 
doing. 

• DUS — The set of CALLable subroutines which 
pre-extend file directories, reducing 
fragmentation. 

In today’s tight economy, it’s more important than 
ever to get the most out of your hardware invest¬ 
ment. Call or write today and start getting your 
money’s worth from your computer. 


Dftware 

w # H ft 8 v „.vj LJ W 


5242 Katella Avenue 
Los Alamitos, CA 90720 
United States 
Phone. [714] 995-0533 


287 London Road 

Newbury, Berkshire RG13 2QJ 

United Kingdom 

Phone: 44 [0] 635-30840 
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mands to the controlled job. The controlled job must be in 
1C or KB state for the command to be sent. The controlling 
job can force a command to the terminal even if the job is 
not in 1C or KB state. The RECORD clause in the PRINT and 
PUT statements informs RSTS/E how to respond to the 
command. The values and meanings of the RECORD clause 
are: 

Value Meaning 

1 The system does not check the job status before 
sending data to the pseudo keyboard. 

2 The system tests to determine whether the pseudo 
keyboard is at IC or KB state. If not then ERR = 3. 
7DEVICE IN USE. is generated. 

4 The system does not send data to the pseudo 
keyboard but instead errs if the pseudo terminal is 
not ready to accept data. If no error occurs then 
control proceeds to the next statement in the con¬ 
trolling job's program. 

8 The system waits for small buffers to become 
available for input if this bit is set. An error is 
generated if there are no small buffers available. 

RECORD 6% option will ensure that the controlled job is 
at command level. If the controlled job is at KB state the er¬ 
ror. 7PROGRAMMABLE 1C TRAP (ERR = 28). is generated. 
A IC can be forced to the controlled job and then command 
level would be reached. 

RECORD 16% option allows the controlling job to kill 
the controlled job. Note that when a logical CLOSE or END is 
encountered the controlled job will also be killed. 

The following is an example of how a command would 
be sent to the pseudo keyboard: 

1020 ON ERROR GOTO 32000 

1030 PRINT *1%.RECORD 4% 

1040 PRINT *1%,"SY/A-":CHR$(13%): 

1050 GOTO 100 

32000 IF ERL = 1030 THEN PRINT "?Pseudo keyboard not at”: 

" IC or KB status" 

\ RESUME 100 


RECEIVING INFORMATION FROM THE CONTROLLED JOB 

Information from the controlled job is obtained by us¬ 
ing the GET statement in combination with the FIELD state¬ 
ment. The channel number for the GET and FIELD state¬ 
ment is the channel number that the pseudo keyboard is 
OPENed on. 

GET # 1% 

This statement will retrieve data from the pseudo keyboard 
on channel one. The system will not stall the controlling pro¬ 
gram if there is not any data waiting to be returned. Instead 
the error. 7END OF FILE ON DEVICE (ERR = 11). is produced. 
If the controlled job produces output faster than the con¬ 
trolling job accepts it, then the controlled job goes into a TT 
(output wait) state. 


The FIELD statement performed after a GET statement 
would be as follows: 

FIELD # 1 %,RECOUNT AS A$ 

The output produced by the controlled job is stored in the 
variable A$. It must be remembered that A$ contains the 
< CR> and < LF> characters. Also A$ may not be full lines 
of output. Therefore when the output from the controlled 
job is displayed the carriage return must be omitted. For ex¬ 
ample: 

PRINT A$ 

This would print the output from the controlled job correctly. 


PSEUDO.BAS — THE RSTS/E BACKGROUND PROGRAM 

Now that the method to utilize pseudo keyboards is 
understood, the RSTS/E background environment can be 
established. The program PSEUDO.BAS will perform the 
necessary tasks to create the RSTS/E background. 
PSEUDO.BAS is a combination of ATPK, BATCH, and AT- 
PRO. PSEUDO.BAS understands command/control files 
from each of these processors. 

To achieve a true background processor. PSEUDO.BAS 
must be able to operate in detached mode. PSEUDO.BAS can 
indeed operate either while connected to a terminal or 
detached. PSEUDO.BAS is even smart enough to log the user 
back in at his terminal after it has detached. PSEUDO.BAS 
will also kill itself when it is finished with the background 
processing. This ensures that there are no detached hiber¬ 
nating jobs left on the system. 

PSEUDO.BAS has two prompts, the first being for the 
command file name. An extension must be given; 
PSEUDO.BAS has no extension defaults. The command file 
can be a CMD or CTL or any other type of file. Again for the 
true background appearance. PSEUDO.BAS will allow the 
user to enter the commands at the terminal which are to be 
processed in background. To do this enter to the com¬ 
mand file question. 

Two switches exist to this question. If the command 
file name is followed by a /DET, PSEUDO.BAS will detach. 
The user can then do whatever is desired. The other switch 
is /RET. With this switch. PSEUDO.BAS will log the user 
back in. Not using a switch indicates that PSEUDO.BAS is to 
run at the terminal. By not using /DET or /RET. 
PSEUDO.BAS will resemble ATPK. 

The second prompt deals with the log file that 
PSEUDO.BAS will print the processing information and er¬ 
rors to. If a carriage return is entered in response to this 
question, the log file is the KB:. If KB: is specified then the 
job can not detach. Any disk file or device can be entered to 
this question. One switch exists to this prompt, and that is 
/TIME:xxx. A default of 120 minutes has been developed for 
the maximum amount of processing time allowed to the 
background job. The /TIME switch will override that 
number. The maximum amount of time to give the job is 
entered in minutes. 

If PSEUDO.BAS is detaching, it will inform the user of 
this status. If PSEUDO.BAS is logging the user back in, then 
the user will be informed about this process. 


Page 10 


RSTS PROFESSIONAL. April 1983 



001 EXTEND 

\ ON ERROR GOTO 32000 

\ X $ = SYS(CHRS (6*)♦CHRS(-7*)) 

\ OPEN "KB:" AS FILE #12% 

\ RUN.TIME = 120 

\ TIME.START = INT (TIME (0* )/60) IEXTEND MODE, SET 'C TRAPPING, 

I OPEN KB: ON CHANNEL 12, 

I INIT DEFAULT AMOUNT OF RUN 
I TIME, GET TIME STARTED 


005 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 
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\ 

\ 

\ 

\ 

\ 
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\ 

\ 

\ 
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\ 
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\ 
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\ 

\ 

\ 
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THIS PROGRAM WAS WRITTEN BY M H KOPLITZ, 

THIS PROGRAM IS A COMBINATION OF BATCH/ATPRO/ATPK 
PROCESSORS. THIS PROGRAM WILL DO COMMAND FILE 
PROCESSING THE WAY ATPRO DOES, NO SPECIAL 
COMMANDS NEEDED. IT IS LIKE ATPK BECAUSE IT WES 
THE WORK ON A PSEUW KEYBOARD. IT IS LIKE BATCH 
BECAUSE THE USER CAN DETACH THE CONTROLLING JOB, 
ALSO THE USER CAN BE RE-LOGGED IN IF REQUESTED. 

THE USER MAY ALSO CREATE THE COMMAND FILE TO 
PROCESS WHEN PSEUW IS INVOKED, NO NEED TO CREATE 
THE COMMAND FILE ANY MORE. 


RUNNING PSEUW: 

RUN PSEUW 

PSUEW V1.0 Command file processor 

Command file name? 

To this input the command filename with extension is given. 
A .CTL file from batch may be used as the command file. 

If a • is entered the commands to process will be inquired 
for from the KB :. 

Two switches exist: DET - causes pseudo to detach. 

RET - causes pseudo to detach then 
re-log the user back in. 


Log file name? 

The default to this question is KB:. If KB: is used then 
PSEUW can not detach. 

Extension must be given. 

One switch: TIME:xxx, where xxx is the time limit of the 
process (in minutes), 120 minutes default. 


030 INPUT LINE #12*,INPUT.LINE* 

\ INPUT.LINE$ = CVT$$ (INPUT. LINE $,U*) 

\ PRINT #2*,INPUT.LINE $ 

\ GOTO 030 IINPUT THE VALUES 


050 

\ 

\ 

\ 

\ 


\ 

\ 

\ 

\ 


OPEN COMMAND.FILE$ FOR INPUT AS FILE #2* 

OPEN LOG.FILE.NAMES 

FOR OUTPUT AS FILE #3* 

PRINT #3*,STRING$(70*, 1»2*) 

PRINT #3* 

PRINT #3*, "PSEUW command file "; 

"processor starting at: "; 

DATE$(0*);" ";TIME$(0*) 

PRINT #3*."Processing file "; 

COMMAND. FILES 
PRINT #3* 

PRINT #3*,STRINGS(70*,U2*) 

X* = -1* I0PEN THE COMMAND FILE AND LOG 

! FILE, PRINT FIRST BANNERS. 


060 GOTO 070 IF SWITCH* <> "DET" 

\ GOTO 100*IF LOG.FILE.NAFCS = "KB:" 

\ PRINT "*PSEUW will be detaching in"; 

" Job slot";PEEK(518)/2 
\ CLOSE #12* 

\ DETACHING* = 1* 

\ X$ = SYS(CHRS(6*)+CHRS(7*)) IIF DET SWITCH THEN DETACH 


070 GOTO 100 IF SWITCH* <> "RET" 

\ CLOSE #12* 

\ PRINT "*PSEUW will be detaching in "; 

"Job slot";PEEK(518)/2 

\ PRINT 

\ PRINT "JPSEUW will re-log in 

"within one minute" 

\ PRINT 

\ X* = SYS(CHRS(6*)♦CHR$(7*)) 

\ DETACHING* = 1* 

\ JDB* = PEEK(520*) 

\ 10B* = PEEK(JDB*) 

\ DDB* = PEEK(I0B*) 

\ TERMINAL.NUMBER* 

= SWAP*(PEEK(DDB*+2*)) AND 127* 

\ RETURNING* =1* IIF RET SWITCH THEN GET 

! TERMINAL NUMBER AND DETACH 


100 X* = X* ♦ 1* 

\ PRINT #3*,"?No pseudo keyboards 

"available" 

IF X* > 8* 


010 PRINT "PSEUW VI.0 "; 

"Command file processor" 

\ PRINT 

\ PRINT "Command file name"; 

\ INPUT LINE COMMAND.FILE* 

\ COMMAND.FILE* = CVT$*(COMMAND.FILE*,-1* ) 

\ GOTO 32767 IF COMMAND.FILE* = "" 

\ SWITCH* = INSTR(1*,COMMAND.FILES,"/") 

\ GOTO 015 IF SWITCH* = 0* 

\ SWITCH* = RIGHT(COMMAND.FILE$,SWITCH*+1*) 

\ COMMAND.FILES 

= LEFT (COMMAND. FILES, SWITCH*-1*) 

\ GOTO 015 

IF SWITCH* = "DET" 

OR SWITCH* = "RET" 

\ PRINT "?Illegal switch" 

\ GOTO 32767 IPRINT THE BANNER, THEN GET 

! THE COMMAND FILE NAME, CHECK 
I FOR A DET OR RET SWITCH. 

015 PRINT 

\ PRINT "Log file name"; 

\ INPUT LINE LOG. FILE. NAMES 

\ LOG. FILE. NAME* 

= CVTS*(LOG.FILE.NAMES,U*) 

\ SWITCH 1* = INSTR(1*,LOG.FILE.NAMES, "/") 

\ GOTO 020 IF SWITCH1* = 0* 

\ SWITCH 1$ 

= RIGHT(LOG.FILE.NAMES 
,SWITCH1* ♦ 1*) 

\ LOG. FILE. NAME* 

r LEFT (LOG.FILE.NAMES 
,SWITCH1S-1*) 

\ GOTO 017 IF LEFT (SWITCH 1*,U*) = "TIME" 

\ PRINT "?Illegal switch" 

\ GOTO 32767 IGET THE LOG FILE NAME AND 

! LOOK FOR A SWITCH 

017 T* = INSTR(1*,SWITCH IS,":") 

\ RUN.TIME = VAL(RIGHT(SWITCH1$,T*+1*)) IGET THE NEW RUN TIME LIMIT 

020 LOG. FILE. NAME* s "KB:" 

IF LOG.FILE.NAME* = "" IIF NO LOG FILE NAME THEN 

I IT IS KB: 

025 GOTO 050 IF COMMAND.FILE* <> "•" 

\ COMMAND. FILE* = NUM1 * (TIME (0* )) ♦ " .TMP " 

\ OPEN COMMAND.FILE* FOR OUTPUT AS FILE #2* 

\ PRINT 

\ PRINT "Enter commands to process, "; 

"end with *Z" 

^ PRINT IIF COMMAND FILE = • THEN 

I USER TO INPUT COMMANDS 


Tt^/E 

■ ■ ■ 

MAGNETIC TAPE DRIVES 

for DEC LSI-11, PDP-11, VAX-11 and Data General 
NOVA and ECLIPSE computer families 


■ Only $7,500 i 
(single quantity) 
with controller 
.. .quality at a low 
price 

■ Connects directly 
to DEC or Data 
General 
computers 
without program 
changes 

■ Safer, more reliable 
backup medium — less 
prone to data loss 



IBM compatible 
10V 2 ” reel ■ 1600/ 
800 BPI ■ 45 IPS 
No need for costly 
disk packs — 
eliminating 
10 large disk 
packs pays for 
the system 


o 


UNITRONIX 

CORPORATION 

197 Meister Ave., Somerville, NJ 08876 


(201) 231-9400 
TELEX: 833184 
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\ GOTO 32767 

IF X* = 8* 

\ OPEN "PK"+NUM1*(X*)+":" AS FILE #1% ITRY TO GET A PSEUDO KEYBOARD 


320 PRINT #1*. MESSAGE.BACK$;CHR$(13%); 

\ GOTO 250 (SHIP OUT COMMAND TO PSEUDO 

1 KEYBOARD 


105 

\ 

\ 

\ 

\ 

\ 

\ 


• ROUTINE ABOVE IS SET FOR 8 PSEUDO KEYBOARDS 

• ADJUST THE EIGHT TO THE NUMBER OF PK: 

• ON THE SYSTEM 


150 INPUT LINE #2*.COMMAND.LINE $ 

\ COMMAND. LINE* = CVT$$ (COMMAND. LINE*, 4*) 

\ GOTO 160 

IF LEFT (COMMAND. LINE*,U*) 

= "*JOB" 

\ GOTO 160 

IF LEFT (COMMAND.LINE*, 3*) 
r "LOG" 

\ NO.LOG* = 1* (READ IN FIRST COMMAND, IF LOG 

! OR $JOB THE INDICATE THAT 
! FIRST COMMAND WAS PROCESSED. 
! A JOB/LOG LINE IS NOT NEEDED 


160 A* = PEEK (PEEK (PEEK (520*)+8* )+2l4*) 

\ PROJ* = SWAP*(A$) AND 255* 

\ PROG* = A* AND 255* 

\ X$ = SYS(CHR$(6*)+CHR$(1H*) 

♦CHR $ (0* ) +CHR $ (0* ) 

+CHR $ (0* ) +CHR $ (0* ) 

♦CHR$(PROG*)+CHR*(PROJ*)) I PROJECT/PROGRAMMER/PASSWORD 

170 PASSWORD* = MID (X *, 9*, *4*) 

\ PASSWD* = RAD* (SWAP* (CVT ** 

(LEFT (PASSWORD*, 2* )))) 

♦ RAD*(SW AP* (CVT** 

(RIGHT(PASSWORD*,3*)))) 

\ GOTO 175 IF RETURNING* = 0* 

\ X* = SYS(CHR*(6*)+CHR*(-H*) 

♦CHR*(TERMINAL.NUMBER*) 

♦ "HELLO " 

♦ NUM1*(PROJ*) 

♦ NUM1*(PROG*) 

♦ CHR$(13*)) 

\ SLEEP 3* 

\ X* = SYS (CHR* (6*) +CHR*(-14*) 

♦ CHR*(TERMINAL.NUMBER*) 

♦ P ASSW D *+CH R * (13* )) 

\ X* = SYS (CHR* (6*) ♦CHR* (-14*) 

♦ CHR*(TERMINAL.NUMBER*) 

+ CHR*(13*)) 


175 PRINT #1*. RECORD It,"HELLO 

* PROJ*;", ";PR0G*;CHR*(13t) ; ILOG IN ON PSEUDO KEYBOARD 


!IF RET SWITCH USED THEN RELOG 
I USER IN. 


180 SLEEP 2* 

\ GET #1* - 

\ FIELD #1*. RECOUNT AS RETURNED.LINE * 

\ PRINT #3*. RETURNED.LINE*; IWAIT FOR MESSAGE BACK 

190 PRINT #1*, RECORD 1*,PASSWD*;CHR*(13*); !SEND OUT PASSWORD 

200 SLEEP 1* 

\ GET #1* 

\ FIELD #1*, RECOUNT AS RETURNED.LINE* 

\ PRINT #3*,RETURNED.LINE*; IGET INFO FROM PSEUDO KEYBOARD 

210 PRINT #1*, RECORD 1*,CHR*(13*); ISEND RETURN IN CASE OF DETACH 

! QUESTION IN LOGIN 


250 SLEEP 1* 

\ GOSUB 1000 

\ GET #1* 

\ FIELD #1*. RECOUNT AS RETURNED.LINE* !GET INFO FROM PSEUDO KEYBOARD 


260 PRINT #3*.RETURNED.LINE*; 

\ GOTO 250 SPRINT LINE FROM PSEUDO 

! KEYBOARD TO LOG FILE 

300 PRINT #1*, RECORD H* IIS PSEUDO KEYBOARD AT 'C 

! STATE? 


350 PRINT #1*,"BYE F";CHR$(13*)• 

\ SLEEP 2* ISIGN OFF PSEUDO KEYBOARD 

! JOB 

360 GET #1* 

\ FIELD #1*,RECOUNT AS DATA.RETURNED* 

\ PRINT #3*,DATA.RETURNED* 

\ GOTO 360 IGET INFO FROM PSEUDO KEYBOARD 

MOO PRINT #1*,CHR*(26*); 

\ GOTO 250 ISEND A “Z TO PSEUDO KEYBOARD 


M50 GOTO 310 


IIGNORE THE $DATA LINE 


1000 !•••••••••••••**••••**••*••*•••••*•••**•••*••••••••••••••• 

\ I • 

\ !• THIS SECTION CHECKS THE LENGTH OF RUN-TIME 

\ I* 

\ . . . 

1010 AMOUNT.RUN.TIME = INT(TIME(0*)/60*) 

- TIME.START 

\ AMOUNT.RUN.TIME = INT(TIME(0*)/60*) 

+ 1M39 - TIME.START 
IF AMOUNT.RUN.TIME < 0 
\ GOTO 1100 

IF AMOUNT.RUN.TIME <= RUN.TIME 
\ PRINT #3* 

\ PRINT #3*,"•••TIME LIMIT EXECEEDED" 

\ PRINT #1*,RECORD 1,CHR*(3t); 

\ GOTO 350 ICHECK TIME LIMITS 

1100 RETURN IEND OF FUNCTION 


32000 !*••••••••••••*• 

\ I • 

\ !• ERROR CONTROL 

\ I • 

\ !#••••••••••••••< 


32005 

IF 

ERL 

= 250 







THEN 

RESUME 300 


32010 

IF 

ERL 

= 300 

THEN 

RESUME 

250 

32020 

IF 

ERL 

= 100 

THEN 

RESUPE 

100 

32030 

IF 

ERL 

= 180 

THEN 

RESUME 

180 

320140 

IF 

ERL 

r 220 

THEN 

RESUME 

220 

32050 

IF 

ERL 

= 360 

THEN 

32700 


32060 

IF 

ERL 

= 310 

THEN 

RESUPE 

360 

32070 

IF 

ERR 

= 28 AND ERL > 210 




THEN 

RESUPE 350 


32080 

IF 

ERL 

= 030 THEN 

CLOSE 1 

92 % 

\ 



RESUhC 050 


32090 

IF 

ERL 

= 010 

THEN 

RESUME 

3276 

32100 

IF 

ERL 

= 050 

AND ERR = 5 



THEN PRINT "?Can not find file or account" 
\ RESUME 32767 

32110 IF ERR = 28 THEN RESUIC 32767 
32120 IF ERL = 050 

THEN PRINT "?Device not available" 

\ RESUME 32767 

32130 IF ERL = 320 

THEN SLEEP 5* 

\ RESUME 320 

32190 PRINT #3* 

\ PRINT #3*."Error = " ;ERR;" on line ";ERL 

32200 GOTO 32700 


305 GOTO 310 IF NO.LOG* = 0* 

\ MESSAGE.BACK* = COMMAND.LINE* 

\ NO.LOG* = 0* 

\ GOTO 320 11F NO LOG/JOB LINE THEN 

I THIS AREA IS VERY IMPORTANT 


310 

\ 

\ 

\ 

\ 


\ 

\ 


INPUT LINE 92 % ,MESSAGE.BACK* 

MESSAGE. BACK* = CVT$$ (MESSAGE. BACK*, U* ) 

GOTO 350 IF LEFT(MESSAGE.BACK*,3*) 

= "BYE" 

GOTO 350 IF LEFT(MESSAGE.BACK*,4*) 

= "*EOJ" 

GOTO HOO IF LEFT (MESSAGE. BACK*, 14*) 

= "$EOD" 

GOTO 1450 IF LEFT (MESSAGE. BACK*, 5* ) 

= "*DATA" 

GOTO 1400 IF LEFT (MESSAGE. BACK*,2*) 

= "“Z" IINPUT A LINE FROM THE COMMAND 

I INPUT FILE AND SEE IF IT IS 
I SPECIAL 


32700 

\ 

\ 

\ 


\ 

\ 

\ 

\ 

\ 


PRINT #3* FOR X* = 1* TO 3> 

PRINT #3*,STRING*(70*,142*) 

PRINT #3* 

PRINT #3*,"PSEUDO command file "; 
"processing complete "; 
DATE*(Ot);" ";TIME*(Ot) 
PRINT #3* 

PRINT #3*, STRING*(70*, U2*) 

CLOSE #X* FOR X* = 1* TO 12* 

GOTO 327*67 IF DETACHING* = 0* 

X* = SYS (CHR* (6*) +CHR*( 8*) 

♦ CHR*(PEEK(5l8)/2) 

+ STRING*(23*,0*) 

♦ CHR* ( 0* ) 

♦ CHR*(255t)) 


IEND THE PROCESSING 


32767 END 


* 
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DEC Module Repair, 
Exchange or 
Replacement 


Photos show how we’re fully 
equipped to repair and test DEC,* 
PDP-11 * and TERMINAL MODULES. 
All modules we repair are 100% 
inspected. 


Visit us at Booth No. 505 


DEXPO™ East 83 

The 3rd National DEC-Compatible 
Industry Exposition 
Kiel Auditorium 
St. Louis, Missouri 

May 22-24, 1983 


DIGITAL PRODUCTS 
REPAIR CENTER 

939 Eastwind Drive 
Westerville, Ohio 43081 
614/890-0939 



Expert, Fast and Reliable 
Work 


Serving the computer systems 
market since 1973, we are now 
troubleshooting, repairing and 
testing hundreds of modules 
weekly. 

We can turn around a critical 
repair job in just 24 hours! Ten- 
day service is normal. 


The modules we return to you are 
guaranteed to meet or exceed 
the manufacturer’s specifica¬ 
tions. And we prove it by sub¬ 
mitting an inspection and test 
report. 

For emergency service, 7 days a 
week, 24 hours a day, call 


614 / 890-0939 
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THE RSTS CRYSTAL BALL 

FMS VI.5 for RSTS/E 

By Michael C. Greenspon, Integral Information Systems, Los Angeles. CA 

No portion of this document may be reproduced for profit without the express writ¬ 
ten permission of Integral Information Systems. 

The information in the document is believed to be accurate and correct, however In¬ 
tegral Information Systems assumes no liability for any errors which may appear in this 
document, or any changes which may occur in the described software. 


Greetings. This issue of the Crystal Ball features an 
overview of FMS VI.5 for RSTS, some undocumented FMS 
features, internals information, bugs, and hacks. Also in¬ 
cluded are some undocumented monitor features in RSTS 
V7.1 and later. 

FMS 

DEC'S Forms Management System (FMS) serves as a 
terminal I/O front-end for application programs. FMS con¬ 
sists of three major components: the forms editor (FED), the 
forms utility and librarian (FUT). and the forms driver (FDV). 

FED allows a programmer to interactively design the 
forms that the application will display and use to retrieve in¬ 
put. FED uses an EDT-like keypad layout to edit and assign 
attributes to a form. Since the programmer sees exactly 
what will be displayed, there is no guesswork with a form 
description language (such as INDENT'S) and no need to use 
a screen layout form. This saves an extraordinary amount of 
programmer time (and frustration!). 

FUT functions mainly as a librarian, allowing the pro¬ 
grammer to concatenate and librarify a group of form files 
into one form library. FUT also prints hardcopy descriptions 
of a form file, including the actual screen image and 
attributes. 

The forms driver (FDV) contains the code which im¬ 
plements the FMS calls and performs the actual terminal 
I/O. A portion of the forms driver is implemented in the 
RSTS monitor (the FMS option must be selected during 
SYSGEN), but the remainder must be linked with the ap¬ 
plication program, optionally as a resident library. The 
forms driver occupies a little under 4KW of code space. 

FMS VI.5 ON RSTS 

I recently completed a complex mailing list system for 
RSTS. using RMS and FMS from MACRO-11. Without FMS. 
the entire project would easily have taken 50% longer to 
write and debug. I was surprised and quite pleased to find 
that FMS is efficient, very flexible, and well documented. My 
complements, DEC, on probably the best layered product 
since DTR. 

Contrary to popular belief, FMS on RSTS is a relatively 
light system load. A number of programmers that I've 
talked to have heard horror stories of FMS VI .0 on RSX, and 
have falsely assumed that FMS on RSTS is just as piggy. The 


forms driver for FMS VI .0 (currently on VMS and RSX) uses 
single character input (the equivalent of the RSTS "one-shot” 
ODT option) and is contained entirely within the user task. 

The user task is scheduled and run every time the operator 
hits a key. The RSTS implementation is newer, and quite dif¬ 
ferent (hence the version number change) in that the low- 
level portion of the forms driver is part of the RSTS monitor. 
This reduces the input overhead for FMS to almost nil. It also 
means that the user task isn't executed until there is actual¬ 
ly data to be processed, so it can be swapped out if needed. 

FMS ENHANCEMENTS 

The next release of FMS (version 2.0) is scheduled for 
late spring or early summer of 1983, and will include 
monitor support for RSX and VMS similar to RSTS's. Also, 
FMS V2.0 will feature a number of major enhancements, 
such as user-defined field validation routines and VT100 
graphics support. Unfortunately, I needed this functionality 
six months ago. With a little hacking, kludgery, and clever 
use of the FMS calls, I persuaded FMS to perform as re¬ 
quired. As far as I know, the following kludges only apply to 
RSTS FMS VI .5, since FMS VI .0 may use incompatible form 
definitions. 

Problem: 

FMS VI.5 does not support the VT100 line drawing 
character set, making it difficult or impossible to display ef¬ 
fective boxes, borders, lines, etc. 

Solution: 

After a little experimentation. I determined that the 
forms driver (FDV) doesn't care about what is in the 
[displayed background] text portion of the form. I ODT'd a 
form file, and after a few minutes, the format of most of 
the file header and the text section became obvious. I 
manually patched in the escape sequence to set up the 
graphics character set, and the appropriate Sis and SOs to 
shift in and out of the graphics set. Miraculously, it worked 
the first time. 

After patching a form file with ODT, it became impos¬ 
sible to edit the form image using FED. since I had inserted 
non-printing characters in the text section. FED assumes 
that the characters it outputs from the text section will 
print, and move the cursor appropriately. The non-printing 
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Sis and SOs completely threw off FED's cursor positioning 
and movement, and caused the image to be displayed incor¬ 
rectly. even though the forms driver showed the form 
perfectly. 

After doctoring a couple of forms, I was getting pretty 
tired of using ODT. Also, if I wanted to make any changes, I 
had to re-patch the 
file, since I couldn't 
FEDit the munged 
file. After some 
lossage due to in¬ 
correctly hacking a 
form definition, I 
decided it was time 
to invent a better 
way to modify the 
form files. 

The VT100 
line drawing set is 
mapped into some 
of the lower case 
characters, such as 
"q", "x". etc. The 
lower case 
characters can, of 
course, be typed in 
with FED. All I had 
to do was write a 
program to hack 
the form file, and 
provide some way 
for the program to 
distinguish be¬ 
tween normal and 
graphics mode 
characters. The 
easiest way to 
mark text on an 
FMS form is with 
VT100 video at¬ 
tributes. I chose to 
indicate graphics 
mode characters by 
assigning them all 
four AVO at¬ 
tributes (bold, 
underscore, blink, 
and reverse) — a 
combination which 
more obscures the 
text than high¬ 
lights it, and would 
never be used. 

With a magical program to do my forms hacking, I could 
type up the form with FED, assign all four video attributes 
to graphics text, and let the program chomp away. 

The program, FI.B2S, (I'm not sure why 1 called it that 
— I think I typed "I” instead of "U" originally and never 
bothered changing it...) is listed at the end of the article. 


Please note that the resulting forms (with the graphics se¬ 
quences) cannot be FEDited. I recommend keeping two 
copies (or two libraries) of forms that use graphics — one 
with the graphics text highlighted and FEDitable, the other 
Fl'd and displayable. Also, FUT may report strange error 
messages when trying to print descriptions of hacked 

forms. You should 
print your form 
descriptions from 
the normal, 
FEDitable forms. 
The forms driver 
has no problems, 
however, with Fl'd 
forms. 

Problem: 

My mailing list 
application replac¬ 
ed an existing 
system, which did 
its terminal input 
using echo control. 
The operators were 
accustomed to ter¬ 
minating fields 
with the RETURN 
or ENTER keys, not 
TAB. Unfortunate¬ 
ly, FMS uses ENTER 
to terminate the 
entire form: i.e., 
"Ok, I am done 
with EVERYTHING 
on the screen" in¬ 
stead of just the 
current field. This 
would have caused 
many headaches 
for the operators, 
not to mention the 
poor old program¬ 
mer who had to 
debug the thing. 
(When was the last 
time YOU hit the 
TAB key to ter¬ 
minate a corqmand 
line? What a 
crock...) 

Solution: 

This seemed 

like a trivial hack — just go in and patch a couple of bytes in 
the forms driver. Wrong. The values were in the monitor's 
portion of the forms driver, and I didn't have sources to that. 
Just as I was about to disassemble the interesting stuff, I 
realized that I could translate the field terminators without 
any patching at all! This will require a little explaining, so 



Software Tools for RSTS/E 


Evans Griffiths & Hart, Inc., a pioneer in the development 
of RSTS and the winner of an ICP million dollar award for 
KDSS and TAM, offers packages that save you time and 
improve your productivity. 

• KDSS, a complete multi-terminal key-to-disk data entry subsystem 
Eliminates the need for keypunching and stand-alone key-to-disk sys¬ 
tems. (Also available for VAX/VMS and RSX-11M.) 

• TAM , an efficient multi-terminal screen-handling facility that provides 
complete support for the development of transaction-processing appli¬ 
cations on a wide variety of terminals. (Also available for VAX VMS and 
RSX-1IM.) 

• FSORT3, a very fast sort/merge package for RMS and non-RMS files. 
More economical of disk space than SORT-11 and much faster. 

• SELECT, a convenient, very fast package for scanning files to extract 
records that meet user-specified selection criteria. Use as part of an 
online inquiry system and as a front end for building file indices and 
generating reports. SELECT and FSORT3 can save hours in nightly batch 
runs. 

• BSC/DV, a RSTS/E device driver for the DEC DV11 synchronous mul¬ 
tiplexer. Suitable for handling a wide variety of bisynchronous protocols. 
(Also available for VAX VMS.) 

• COLINK, a convenient, efficient link between two RSTS/E systems 
using DMC11 s or DMR11 s without the overhead of DECnet. Supports 
file transfers, virtual terminals, and across-the-link task communication. 

• DIALUP, a comprehensive, efficient link between RSTS/E and other 
systems using asynchronous terminal lines. Supports file transfers, vir¬ 
tual terminals, auto-dialing, and the use of command files and macros. 
The premier RSTS/E package for remote support and reliable. CPU- 
efficient file transfers. 

DEC, DECnet. RSTS, RSX. VAX, and VMS are trademarks of Digital Equipment Corporation. 

Call or write for complete descriptions of features and benefits. 

Evans Griffiths & Hart, Inc. 


55 Waltham Street, Lexington, MA 02173 

(617)861-0670 
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first, some background information ... 

FMS has two basic calls to retrieve input from the ter¬ 
minal: GETALL and GET. (GETAF is not significantly dif¬ 
ferent from GET for our purposes.) GETALL allows the 
operator to move the cursor anywhere on the form, fill in 
any or all of the needed information, and terminate the 
form. Ideally, executing a GETALL is similar to reading a 
record from a file — one call, and 'boom!* — all of the 
fields are filled and returned in order. I have not yet found 
an (ideal ...) application for which GETALL is suitable, 
because it does not allow for individual field validation, 
which is essential in almost all applications. 

The GET call retrieves data for a single field. Additional¬ 
ly, FMS supplies a numeric code for the field terminator. The 
application program can process and validate the data in the 
field, and then execute a PFT (process field terminator) call 
to advance or backup to the appropriate field. PFT takes as 
an argument the terminator code to process. 

My simple hack is to merely translate the terminator 
codes behind FMS's back. For example, the program ex¬ 
ecutes a GET call, and the operator responds and terminates 
the field with the ENTER key. FMS returns the data, and the 
terminator code FT$NTR, which means "done with form." 
The program processes the returned data, translates the 
terminator to FT$NXT (advance to next field), and executes 
a PFT call. FMS advances its context to the next field on the 
form. Without patching. ENTER has successfully been 
translated to TAB. Unfortunately, this does create one 
minor problem ... 

Problem: 

If ENTER is translated to TAB (next field), there is no 
terminator to indicate "end of form." 

Problem: 

FMS uses the VT100 arrow keys and PF keys for editing 
and control functions, and does not process control 
characters as field terminators. Application-defined function 
keys are. therefore, scarce. If the VT100 is in application 
keypad mode. FMS will process the keypad keys as ter¬ 
minators, however the operator will not be able to use the 
keypad keys for numeric input. 

Solution: 

For my application, only three function keys were need¬ 
ed: end of form, abort form, and a form-dependent key. 
usually used to jump around on the screen. The FMS release 
notes describe an FMS build option to enable four keys as 
FMS terminators. (The keys are PF4, Gold-PF4, Gold- 
Rightarrow, and Gold-Leftarrow.) The option can be enabled 
by setting the global symbol FT$USR non-zero at taskbuild 
time, or, if you are using the FMS resident library, when the 
library is built. (More on this in a moment.) 

I used PF4 for end of form, Gold-PF4 for abort form 
(with a confirm), and Gold-Rightarrow as the form depen¬ 
dent key. The same routine that translates FT$NTR to 
FT$NXT also translates the code for PF4 to FT$NTR, and the 
other keys to my own internal terminator codes. 


For applications which require more than four function 
keys, but also need the numeric keypad, there are a number 
of solutions. The most elegant that I could think of involves 
the use of a second prefix key, and a little cheating. (Note: 
this should work in theory, but, since 1 have had no use for 
it, I have not tested it.) 

First, build the program or the FMS reslib with FT$USR 
set non-zero (see below), so that the unused arrows and PF 
keys are available. Define the PF4 key as an alternate "Gold" 
key, let's say, "Silver." Normally, the VTIOO should be in 
numeric keypad mode. When PF4 is pressed, FMS will 
return control to your program, which should enable ap¬ 
plication keypad mode on the terminal, and then re-get the 
current field. If the operator hits a keypad key, FMS will 
again return to your program, with the numeric code for the 
terminator. The program should turn off application keypad 
mode, and perform the special function associated with the 
Silver-foo key. This gives the program access to 13 function 
keys. By defining more prefix keys, (Gold-PF4, Gold- 
Rightarrow, etc.) you can create up to 52 function keys. 

The program must "cheat" in order to switch to ap¬ 
plication keypad mode and back. Once the program has "at¬ 
tached" to the terminal, (in the FMS sense, not the RSTS 
sense) any normal RSTS terminal input will effectively 
"detach" the terminal. (This follows the same rules as other 
special terminal modes.) However. FMS mode is a special in¬ 
put mode only — outputting to a terminal open in FMS 
mode will not cancel FMS mode, provided the output is done 
on the correct channel (i.e., not channel 0). Therefore, you 
can output the needed escape sequences directly. 

Problem: 

The procedure for building a task with additional func¬ 
tion key support (FT$USR set non-zero) is described in the 
FMS release notes. However, if the FDV resident library is 
built with this procedure, the additional function keys are 
not enabled. 

Solution: 

The FDV resident library has a null root segment, so 
that it can be clustered. The GBLDEF taskbuilder option 
defines the symbol FT$USR to be non-zero in the root seg¬ 
ment, but not in the overlay segment where the actual code 
is. 

One possible solution is to edit the ODL file and discard 
the null overlay root, but this will make the library 
unclusterable. Since the code only references the symbol in 
one place. I have chosen to patch the library. The following 
patch will enable additional function key support for the 
FMS reslib: 

For the FDV reslib without debug support: 

File to patch? FDVRES.LIB 
Base address? $FDV 
Offset address? 7012 
Base Offset Old New? 

?????? 007012 000000 ? 1 ; non-zero to enable 

?????? 007014 001402 ? A C ; Uparrow C to exit 


For the FDV reslib with debug support: 
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rue uv ~ • — 

Base address? $FDV 



?????? 

000070 

000000 

? 

32443 

Offset 

address? 7224 



?????? 

000072 

000000 

? 

55633 

Base 

Offset Old 

New? 


?????? 

000074 

000000 

? 

115513 

?????? 

007224 000000 

? 1 

; non-zero to enable 

?????? 

000076 

000000 

? 

133 

?????? 

007226 001402 

? *C 

• Uparrow C to exit 

?????? 

000100 

000000 

? 

~C 

Problem: 




RANDOM 





; Uparrow C to exit 


Since the GETALL call does not allow for individual field 
validation, it is fairly useless. Executing individual GETs and 
PFTs to retrieve a form quickly becomes cumbersome in an 
application with many forms or fields. 


As usual, I would appreciate any feedback you have on 
FMS, RSTS, or whatever. Although FMS has some minor 
problems and bugs, I found it to be very well suited to my 
application, and many other screen-based interactive 


Solution: 

Version 2.0 of FMS will provide user-defined field 
validation routines, so that GETALL can be used effectively. 
It is a simple task to write a subroutine to simulate this 
under VI .5. The subroutine I used in my application is called 
GETFRM, and is listed at the end of the article, along with 
some support macros. If you are using FMS from a high-level 
language, you'll have to write your own subroutine. Since 
"high-level" languages are highly restrictive, highly piggy, 
etc., you might have some problems dispatching to the 
validation routines (i.e., variable subroutine calls). (Moral: 
write it in MACRO next time.) 

As suggested in the FMS documentation, it is possible 
to use named data to describe the required field validation. 


systems. It is relatively low CPU overhead, not too piggy on 
space, and can save an immense amount of programmer 
time. FMS is highly flexible, and, with a little imagination, 
can help make an applications package consistent and good 
looking. FMS V2.0 will offer even more functionality and 
flexibility than the current release, and should be seriously 
considered for any new interactive applications. On a scale 
of 1 to 10, 10 being best. I give FMS a 9.2. 

I'd like to thank the FMS people for the FMS magic ses¬ 
sion at the Anaheim DECUS. Although there were only about 
150 people present (hidden in a small room behind the ex¬ 
hibit hall), it was one of the most lively and informative ses¬ 
sions of the week. Also, thanks for the FDV sources — they 
came in handy. 


For my purposes, this would have been overkill, and less ef¬ 


ficient (of space and time). This method is, however, par¬ 
ticularly effective, especially for complex applications or 
high-level languages. 

I wasn't satisfied with the bagbiting macros that DEC 
supplied, so I hacked up some of my own (CALFMS, DOFMS, 
etc.). GETFRM uses these for its FMS calls. Unfortunately, 
they are rather long and can't be printed here, but they are 
available on the monthly goodies tape. 


FMS VI.5 BUGS 

I have only found one serious FMS bug so far: overlaid 
forms do not clear the correct area on the screen. Instead of 
erasing the specified lines, FMS erases the top line several 
times. I had been using a kludge to get around the problem 
for some time, but a patch was recently made available to 
me. Special thanks to Mark Hartman for passing it on to me, 
and to the DEC FMS people, for their lightning-fast response 
to Mark's SPR. The patch to the FMS phase of the monitor is 
listed below. Mark said that the patch is for V7.2 only, 
however it will probably work for V7.1. (I have not tested it 
— the offset address from $FMSSE may be different, and a 
different portion of patch space may need to be used.) 

Monitor patch to fix FMS overlaid forms: 


File to patch? <LF> 
Module name? FMS 
Base address? $FMSSE 


Offset 

address? 4230 


Base 

Offset 

Old 

New? 

?????? 

004230 

?????? 

? FMSPAT+60 

?????? 

004232 

?????? 

? ~Z 

Offset 

address? 



Base address? FMSPAT 


Offset 

address? 

60 


Base 

Offset 

Old 

New? 

?????? 

000060 

000000 

? 33633 

?????? 

000062 

000000 

? 55633 

?????? 

000064 

000000 

? 115562 

?????? 

000066 

000000 

? 115470 


Control/Z for new base... 


This all looks like data... 


HIDDEN UU.MNT BITS 

There are a number of undocumented mode bits for the 


RSTS SOFTWARE 



RESOURCE MANAGEMENT and 
CHARGEBACK SYSTEM 

DP Managers use ARSAP for: 

• User and Project Accounting 

• Monitoring Usage and Trends 

• Controlling Performance 

• Billing for Services 

Also Available for VAX and RSX Systems 

S GEJAC PO. Box 188 

wcMKMjrro Riverdale. MD 20737 (301)864-3700 

VAX, RSX. and RSTS are trademarks of the Digital Equipment Corp 
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UU.MNT call (mount sub-function) under RSTS V7.1 and 
later. For more information on the UU.MNT call, consult the 
System Directives manual or the RSTS/E Programming 
Manual. The recognized mode bits are as follows: (un¬ 
documented bits are indicated with an asterisk) 


Bit 

Octal 

Meaning if set 

! 

! 



& 

A 

• 6 

100 

Write check all FIP writes (UO.WCF in UNTOWN) 

! - - 




• 7 

200 

Write check all writes (UO.WCU in UNTOWN) 

! 



& 

• 10. 

2000 

Automatically lookup pack ID 

I 



& 

• 11. 

4000 

Use named directories regardless of PRI/PUB 

I 

Modification history: 


& 

• 12. 

10000 

Don't use named directories 

I 



A 

13. 

20000 

Mount the pack read only 

1 



A 

14. 

40000 

Mount the pack private 

1 

Date Ver/Ed By 

Reason 

A 

15. 

100000 

Mode bits are "real" - use them 

I 

-- - - 


- A 


Bit 10. is particularly useful — it allows mounting the 
pack even if the pack ID is unknown. Now you can ditch all 
of those stupid programs to print a NFS disk pack's ID. Bits 
11. and 12. control whether or not the N AME.SYS file will be 
used (if named directories have been genned into the 
monitor). Normally, NAME.SYS is not used on public disks 
other than the system disk, and is used on all private disks. 
You can override this by setting bits 11. and 12. ap¬ 
propriately. 

Bits 6 and 7 control whether or not FIP writes or all 
writes will be checked. These bits correspond to UO.WCF 
and UO.WCU in UNTOWN. Also, there are two additional un¬ 
documented bits in UNTOWN which control data and direc¬ 
tory caching for a particular disk unit. If set correctly, data 
and directory caching can be enabled or disabled on a per- 
unit basis. (I remember this being one of the wishes at a 
past DECUS ... it is already implemented to some extent.) 
Unfortunately, there is no call to modify these bits, so the 
only way to change them is by poking monitor memory. 

CONCLUSION 

If you aren't up to keying in the programs, send $25.00 
to IISI (Attn:MCG) and we ll send you a tape of all of the 
Crystal Ball goodies. Please specify 300 or 1600bpi. 

Much of the information printed in this column is the 
direct result of reader inquiries and comments. If you have a 
topic that you'-would like to see explored in a future issue, 
communicate it to me. preferably in writing. I will attempt 
to investigate/document any RSTS subject, provided there 
is sufficient user interest (i.e., RESPONSE). 

I hope you have enjoyed this installment of the RSTS 
Crystal Ball. I will continue to try to present information 
which is interesting and useful. If you have any questions, 
gripes, or suggestions, feel free to call or write to the ad¬ 
dress below. Until next time, happy hacking! 

Michael C. Greenspon 
C/0 Integral Information Systems 
9832 Vicar Street. Suite 100 
Los Angeles, California 90034 
(213) 550-0732 


! [MCG] 

Program: 

FI 

i 

Description: 

Hacks FMS form files 


Version: 

XI .0 

{ 

OS Version: 

RSTS 7.1-11 [and later] 


Package: 

Internal hacks 


Author: 

Michael C. Greenspon 

1 

i 

Edit date: 

14 November 1982 


Title to and ownership of this software shall at all times re¬ 
main with Integral Information Systems. 

The information in this software is subject to change without 
notice and should not be construed as a commitment by Integral 
Information Systems. 

This software is unreleased and Integral Information Systems 
has no obligation to support it at this time, unless stated 
elsewhere in writing. 


14 November 82 1.0/01 MCG Initial creation 


Description: 

FI is a kludge which hacks VT100 graphics and line drawing 
characters into FMS forms. The input form file should be 
created with FED as usual, and all graphics mode characters 
should be given all four AVO attributes (bold, reverse, blink, 
underscore). The output form file will be displayed by FDV 
with graphics. 


Note: Output form files can 1 
with FUT. 


t be edited with FED or printed 


Compilation instructions: 

Simple ... FI is self-contained, so enter BP2 and 

OLD FI 

COM/OBJ 

BUI 

RUN $TKB 

m 


Compile time constants: 


.DEFINE .IDENT} 
.DEFINE .VERSION$ 

.DEFINE .ESC} 
.DEFINE .SOS = 
.DEFINE .SIS 


= "Fi" I Who we are 

= "V7.2-69" I What version we are 

155S I Parity-high escape 

142} I Parity-high SO 

143} I Parity-high SI 


! 


Ye3, there is actually code here somewhere. 


1010 

\ 


PRINT IF CCPOS(OS) ! Reset to margin if needed 

PRINT .IDENTS ♦ HT ♦ .VERSIONS ♦ HT ♦ HT 

♦ "Integral Information Systems" ♦ CR + LF 

♦ "FMS forms hacker" ♦ CR ♦ LF 

! Print our header 

LINPUT "Input filename";a$ ! Get filename 

AS = A$ ♦ ".FRM" UNLESS 1NSTR(IS,A$,".") 

! Default the extension the quick and 
! dirty way 

PRINT IF CCPOS(OS) I Reset margin 

OPEN AS FOR INPUT AS FILE #1S, MODE 8192S, MAP INP 
LINPUT "Output to";BS I Open file for input, get the 

! output file name 

BS = BS «• ".GRF" UNLESS INSTR (IS , B$, ". ") 

PRINT IF CCPOS(OS) I Do bagbitting extension defaulting 

OPEN BS FOR OUTPUT AS FILE #?S, MAP OUT 

! Open output file 


GRAPHS = CHRS(.ESCS) 


GET #1S, RECORD IS 
OLD.TLENS = INP}(4}) 
OLD.FLENS = INPS(12S) 


")0" ♦ CHRS(.SIS) 

! Set graphics mode as G1 set, and 
! switch to GO set Just in case... 

! Get the header block 
! Get old text length and 
! old form length from header 


800 

! 




A 


1 

! 

MAPs and COMMONs: 


A 

A 


MAP 

(INP) INP $ = 512} 


! Map entire 

A 

input buffer A 


MAP 

(INP) INPK511*) = 

1} 

1 by bytes 

A 

\ 

MAP 

(INP) INP}(255S) 


! and words 

A 

\ 

MAP 

(OUT) OUT}. = 512} 


I Same story 

for output buffer A 

\ 

MAP 

(OUT) OUT}(51 It) = 

1} 


A 

\ 

MAP 

(OUT) OUTS(255*) 



A 

A 

1000 

! 




A 
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Intersil 

Systems 


MEETS THE DEC® DH-11 CHALLENGE 


The challenge; increased communications capacity, increased reliability, and improved 
technology - at decreased cost. 

That’s not a challenge for Intersil Systems. 

• Increased Capacity - One Intersil DH-11 replaces nine DEC card slots 

• Increased Reliability - Only one chance for a failure instead of nine. 

• Improved Technology - The latest microprocessor based technology is employed. 

• Decreased Cost - 66% less! One Intersil DH-11 costs 66% less than one DEC DH-11. 

In addition the Intersil DH-11 offers these features: 

• 16 Asynchronous local or remote channels on the UNIBUS® . 

• DMA output to free the CPU from Interrupt handling. 

• On-board diagnostics. 

• Complete software compatibility. 


IDH11 


PDP11 UNIBUS 



CPU | | MEMORY ] 

L_! L_I 




DMA INTERFACE 


IDH11 



IT 



16 ASYNCHRONOUS CHANNELS 
TO LOCAL OR REMOTE TERMINALS 


Get all the challenging facts. Call (408) 743-4300, TWX: 910-339-9369, or write 
Intersil Systems, Inc., 1275 Hammerwood Avenue, Sunnyvale, CA 94086 


‘ Trademarks of Digital Equipment Corporation 


CIRCLE 171 ON READER CARD 









\ UNLESS RAD$(FNGET.WORDS(OS))♦RADS(FNGET.WORDS(OS)) = "FRMLBR" & 

THEN PRINT "?Not an FMS form file, cretin" & 

! Insure this is an FMS form file & 

\ CLOSE 1|, 2S I Croak if it isn't... & 

\ GOTO 1010 & 

& 

ELSE & 

& 

\ PRINT "Form: " ♦ RAD$(INPS(2S))^RAD$(INPS(3t)) 4 

! Identify form for the user A 

\ JS = FNPUT.WORDS(INPS(OS)) ♦ FNPUT.WORD*(INPS(1*)) A 

♦ FNCOPY.WORDS(16S) ♦ FNPUT.FIELDS(IS,IS,OS,GRAPH!) A 
I Copy form header to output file, A 

I and insert graphics sequence at A 

! start of form text A 

\ JS = FNGET.WORDS(OS) I Get first word of text section A 

A 

\ PRINT "[Blank form]" IF JS = -IS A 

I Say this form is blank if the text A 

! section is null A 

\ UNTIL JS = -IS I Until we hit the end of the text, A 

A 

\ YS = JS AND 255S 4 

\ XS = SWAPS (JS) AND 255S 4 

I Get the [x, y] screen coordinates for A 
! the text A 

\ ATRS = FNGET.WORDS(OS) 4 

\ CNTS = FNGET.BYTES(OS) 4 

! Get video attributes, and text length A 

A 

\ TEXT! = "" A 

\ TEXT! = TEXTS ♦ CHR $ (FNGET. BYTES (OS)) 4 

FOR FOOS r IS TO CNTS 4 

! Get the text string 4 

A 

\ ZS = FNGET.BYTES(OS) IF (CNTS AND IS) = OS A 

I The text is padded to an even word A 

! boundary, so make sure we get the A 

! trailing null if this is the case A 

A 

\ ST$, EN$ r "" I Zero out prefix and suffix strings A 

\ STS = CHRS(.SOS) IF ATRS = 15S 4 

\ ENS = CHRS(.SIS) IF ATRS = 15S 4 

! Put SO/SI pair around the text if A 
I all four AVO attributes are set A 

A 

\ ATRS = OS IF ATRS = 15S 4 

! Clear all video attributes if grafix A 

A 

\ ZS = FNPUT. FIELDS (XS.YS, ATRS, STS ♦ TEXTS ♦ENS) A 

! Write the hacked text to the output A 
! file A 

\ JS = FNGET.WORDS(OS) 4 

! Get the next word from the input file A 
\ NEXT & 

\ JS = FNPUT.WORDS(JS) I Write out the end-of-text-section A 

! marker A 

\ ON ERROR GOTO 1020 ! Set error trap for EOF error A 

\ UNTIL OS 4 

\ JS = FNCOPY.WORDS(IS) 4 

I (Slowly) copy the rest of the form A 

! to the output file A 

\ NEXT A 

1C20 RESUfC 1C3C IF F.RR = US I Resume if this is the expected EOF A 

\ ON ERROR GOTO 0 4 

1030 PUT IPS IF OUT.BUFPTRS I Punt the last block if we need to A 

\ GET IPS, RECORD IS I Get the header block again A 

\ DLENS = FLENS - OLD.FLENS ! Calculate the new form length A 

\ OUTS(^S) = OLD.TLENS ♦ DLENS ♦ US 4 

\ OUTSM2S) = FLENS ♦ *S 4 

I Update the lengths in the header A 

\ PUT I2S, RECORD IS 4 

\ CLOSE IS,PS 4 

\ GOTO 32767 4 

! Punt it back to disk, close the files A 
I and exit... A 

A 


\ 

IF 

OUT. BUFPTRS > 51 IS 

1 If off end of buffer, 

A 


THEN 

OUT.BUFPTRS = OS 

1 then reset the pointer 

A 


\ 

PUT I2S 

1 and punt the block to disk 

A 


\ 

0UT$ = STRING$(512S,OS) 

I Zero the output buffer 

A 

15050 

FNPUT. 

WORDS = ARGS 

I Return the word written 

A 

\ 

*FNEND 

IFNPUT.WORDS I 


A 

15060 

DEF* FNPUT.BYTES(NS) 

I Write a byte to the output file 

A 

\ 

OUT $(OUT.BUFPTRS) = CHR$(NS) 

1 Buffer character 

A 

\ 

OUT.BUFPTRS = OUT.BUFPTRS ♦ IS 

I Increment buffer pointer 

A 

\ 

IF 

OUT.BUFPTRS > 51 IS 


A 


THEN 

OUT.BUFPTRS = OS 


A 


\ 

PUT I2S 

I Punt block and zero buffer if we are 

A 


\ 

0UT$ = STRING$(512S,OS) 

I done with the block 

A 

15070 

FNPUT. 

BYTES = NS 

I Return the written character 

A 

\ 

FNEND 

IFNPUT.BYTES! 


A 

15080 

DEF* FNCOPY.WORDS(BLETCHS) 

1 Copy BLETCHS words Trom input to 

A 




1 output file 

A 

\ 

FNCOPY 

.WORDS = FNPUT.WORDS(FNGET, 

.WORDS(OS)) 

A 


FOR LOCALS = IS TO BLETCHS A 

! Just write read words... A 

\ FNEND !FNCOPY.WORDS I A 

15090 DEF # FNPUT.FIELDS(XCOORS.YCOORS,ATR.W0RDS.DATA$) A 

! Write a text field to output file A 
\ FNPUT.FIELDS = FNPUT.BYTES(YCOORS) ♦ FNPUT.BYTES(XCOORS) ♦ 4 

FNPUT.WORDS(ATR.WORDS) ♦ FNPUT.BYTES(LEN(DATA$)) 4 

\ FNPUT.FIELDS = FNPUT.BYTES(ASCII(MID$(DATA$,FOOS,IS))) 4 

FOR FOOS = IS TO LEN(DATA$) A 

! Write header and data A 

\ FNPUT.FIELDS = FNPUT.BYTES(OS) I Pad data with a null if it is odd A 

UNLESS LEN(DATA$) AND IS I (that's odd...) A 

\ FLENS = FLENS ♦ LEN(DATA!) ♦ 5S I Update global form lengths A 

\ FLENS = FLENS ♦ IS & 

UNLESS LEN(DATA!) AND IS 4 

V FNEND IFNPUT.FIELDS I 4 


32767 END ! All good things must come to an end 


Support macros for GETFRM 
Usage is: 

-display form, set first field to get in call blocks- 

GETFORM [ABORT=aboaddr,SPEC=pfx,UPCASE=YES/NO] 

aboaddr is a symbol to jump to if the form is aborted 

pfx is a three character prefix for the generated PSECTs and 
symbols. It should be used with all FIELD and TERM macros for 
this GETF0RM, and must not be used again in another GETFORM. 

UPCASE=YES indicates that all data fields should be CVT$$'d to 
upper case before calling the field processing routine. UPCASErNO 
is the reverse. 

If the form is terminated normally (with FORM), control will return 
in-line, to the instruction after the GETFORM. 

In order to perform individual field validation, use the FIELD macro: 
FIELD name,pfx 

name is the name of the FMS field on the form to perform special 
validation for. 

pfx is the same three character prefix used with the GETFORM macro. 

Whenever a terminator is entered in the named field, control will 
be passed to the instruction following the FIELD macro. (See GETFRM 
routine for more details) 

To perform special terminator checking, use the TERM macro: 

TERM term,pfx 


Random wizard-defined functions 


DEF* FNGET.WORDS(NS) 


IN.BUFPTRS = FNADV. PTRS(2S) 

FOR JUNK* = 1* TO NS 
FNGET.WORD? = INPS(IN.BUFPTRS/2S) 


IN.BUFPTRS = FNADV.PTRS(2S) 
FNEND IFNGET.WORDS! 


! Return the word 

and advance pointer to next word 


I Skip NS words and return a word from 
! the input file 

! Advance pointer by two as much as we 
I need to 


15010 DEF* FNGET.BYTES(NS) 


15020 

\ 

\ 


IN.BUFPTRS = FNADV.PTRS(IS) 

FOR JUNKS = IS TO NS 
FNGET.BYTES = ASCII(INP$(IN.BUFPTRS)) 

! Return the byte 

IN.BUFPTRS = FNADV.PTRS(IS) 

FNEND IFNGET.BYTES! 


I Skip NS bytes and return a byte from 
! the input file 

! Advance pointer as much as needed 


I and advance pointer to next byte 


DEF* FNADV.PTRS(INCS) 

IN.BUFPTRS = IN.BUFPTRS ♦ INCS 
IF IN.BUFPTRS > 51 IS 

THEN GET US 

\ IN.BUFPTRS = OS 


! Advance pointer by INCS 
! Simple 

! If off end of buffer, then 
I get next block and reset pointer 


15030 FNADV.PTRS = IN.BUFPTRS 

\ FNEND IFNADV.PTHSI 

1501*0 DEF* FNPUT. WORDS (ARGS) 

\ OUTS(OUT.BUFPTRS/2S) = ARGS 

\ OUT.BUFPTRS = OUT.BUFPTRS ♦ 2S 


! Return the buffer pointer 


! Write a word to the output file 
! Buffer the word 
I Increment the buffer pointer 


term is the numeric code for the FMS terminator to perform special 
checking on. 

pfx is the same as above... 

Whenever the "term" terminator is entered on the form, first the 
special field validation, if any, will be performed, and then if 
terminator processing is still requested, control will pass to the 
instruction following the TERM macro. (See GETFRM for more details...) 

You should use the ENDFORM macro to terminate the table definitions. 

ENDF0RM pfx 

pfx is the same three character prefix used with the GETFORM that 
you are ENDing... 

Have fun;’hack, hack ~[MCG]~ 


.MACRO 

.NLIST 

$$$ 

.IF 

$$$ 

.ENDC 

.IF 

.LIST 


GETFORM ABORT = 0,SPEC,UPCASErYES 
= 0 

DIF <UPCASE >,<YES> 

= 1 

NB <SPEC> 

CALLX GETFRM,R5,<ABORT,FRM'SPEC,$$$> 


.NLIST 

.PSECT FRM•SPEC,B,R0,GBL,CON 
FRM’SPEC: .WORD 0,0 


UNORG 


.IFF 

.LIST 

CALLX GETFRM,R5,<AB0RT,0,$$$> 
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.NLIST 

.ENDC 

.LIST 



.ENDM 

GETFORM 


.MACRO 

.NLIST 

FIELD 

NAME,TABLE 

$$1 

z 


.PSECT 

FLD'TABLE,D.RO.GBL,CON 

.IF 

NDF 

FLD’TABLE 

FLD'TABLE: 


.ENDC 

$$* 

_ 



.ASCII 

"NAME" 

$$o 

= 


.IF 

GT 

6-<$$0-$$$> 

.REPT 

6-<$$0-$$$> 


.BYTE 

HO 

.ENDR 



.ENDC 

.WORD 

$$1 

.PSECT 

FRM'TABLE,D,RO,GBL,CON 


z 

0+FRM'TABLE 


.WORD 

UNORG 

FLD'TABLE 

.LIST 

.ENDM 

FIELD 


.MACRO 

.NLIST 

TERM 

TERM,TABLE 

$$1 

z 


.PSECT 

TRM'TABLE,D.RO.GBL,CON 

.IF 

NDF 

TRM'TABLE 

TRM'TABLE: 


.ENDC 

.WORD 

TERM,*$1 

.PSECT 

FRM'TABLE,D.RO.GBL,CON 

.IF 

NDF 

FRM'TABLE 

FRM'TABLE: 

* 

.ENDC 


2+FRM'TABLE 


.WORD 

UNORG 

TRM'TABLE 

.LIST 

.ENDM 

TERM 


.MACRO 

ENDFORM 

NAME 

.NLIST 

.IF 

DF 

FLD'NAME 

.PSECT 

FL D • N AME, D, RO, GBL, CON 


.WORD 

0 

.ENDC 



.IF 

DF 

TRM'NAME 

.PSECT 

TRM'NAME,D,RO,GBL,CON 


.WORD 

0 

.ENDC 

UNORG 


.LIST 

.ENDM 

ENDFORM 


.SBTTL 

GETFRM ■ 

- Get ar. FMS form 


GETFRM - Get an FMS form 

Call: FMSARG+F$NAM -> current field name 

FMSARG+F$NUM = current field index value, if indexed 
Form context must be established, i.e. form displayed 

CALL GETFRM,R5,<ABORT,SPEC,UPCASEFLAG> 

ABORT is the address to exit through if ABORT is entered and confirmed, 
or zero if ABORT is invalid. 

SPEC is the address of an exception processing table, as follows: 

.WORD address of fields table 

.WORD address of terminators table 

The fields table contains an entry for each field that needs special 
processing. An entry consists of the six character field name in ASCII 
followed by the one word address of the routine to call when a term¬ 
inator is processed in this field. 

The terminators table contains an entry for each terminator that needs 
special processing. An entry consists of one word which is the numeric 
code returned by FMS for the terminator, and the one word address of 

the routine to call when this terminator is hit. 

Back: Return when FORM is hit, or exit through ABORT address if selected. 

Note: Field processing is done before terminator processing. 

When a field processing routine is called, all reglste-s are saved. 

The return address specifier terminator processing. If no terminator 
processing is desired (i.e. re-get current field if invalid) then 
return to the next word, i.e. ADD #2,(SP) before returning. 

Normally the GETFORM, FIELD, TERM and ENDFORM macros are used to 
call this routine and set up table entries for exception processing. 

Also: TE$NTR, TE$ABO, and TE$FRM should be equated to the value of the 

appropriate FMS terminators, i.e. ENTER, ABORT (Gold-PF 1 *), and FORM 
(PFH). (You can, of course, use whatever keys you want...) 

XLATRM should translate the returned FMS terminator codes into your 
special terminator codes (TE$xxx, etc.) if there is an equivalent, 
otherwise, it should leave the FMS terminator as-is. (GETFRM expects 
the translated terminator returned in R1.) 

The FMSDEF and FMS1MP macros define the FMS impure area and call 
blocks. The symbol FMSARG is defined to be the starting address 
of the FMS call block. 


Don’t wait for the movie. 
The 

RSTS Internals Manual 

is here. 


DEC 

SYSTEMS & COMPONENTS 

C.D. SMITH & ASSOCIATES, INC. 
12605 E. Freeway, Suite 318 
Houston, TX 77015 

(713) 451-3112 

CIRCLE 54 ON READER CARD 


INTERACTIVE DATA ANALYSIS 

for VAX and PDP-ll’s 


ADVANCED CAPABILITY 

USED BY: • I /3 of Fortune’s Top 50 

• Almost every major US university 

• 100’s of smaller organizations 

in 25 countries around the world 


ELEMENTARY OPERATION 

SIMPLICITY Ot DESIGN 

RESULTS IN: • Rapid installation and operation 

• Sophisticated range of data analysis 
and statistical capabilities 


YOU CAN DO MORE 
WHEN YOU DO IT SIMPLY 

CONTACT: Minitab Project 

215 Pond Laboratory 
University Park, PA USA 16802 
Telephone 814/865-1595 Telex 84-2510 



WITH 


Minitab 


CIRCLE 168 ON READER CARD 
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STRBF2 is a fixed-length scratch string buffer. 
CVT$$ is a. fairly standard string-trim routine. 


.ENABL 

LSB 



GETFRM 

:FEGSAV 


Save everything 


BF 

30$ 

Get the first field and process it 

10$: 

CALL 

XLATRM 

Translate the terminator again 


CMP 

#TE$FRM, R1 

End of form7 


BNE 

20$ 

no, go on 


FEGFES 


Restore all 


ADD 

#6,R5 

Skip arguments 


FETUFN 

R5 

and get out 

20$: 

CALFMS 

DOTERM,ARC=#FMSARG ; Process the terminator 

30$: 

CALFMS 

GET,ARG=#FMSAFG,ERR=FMSER2 ; Get us a field 


CALL 

XLATRM 

Translate the terminator 


CMP 

#TE$ABO, R1 

ABORT form? 


BNE 

uo$ 

no, go on 


TST 

0TOS.R5(SP) 

Any abort routine? 


BEC 

HOI 

no, go on 


FMSG 

<Hit ENTER to abort form, or PFH to keep editing.>,ARGS=#FMSAFG 


PUSH 

FMSARG+FIN AM 

Save field name 


PUSH 

FMSARG+F *UM 

and index 


CALFMS 

PAUSE 

Get a confirm 


POP 

FMSARG+F $NUM 

Restore index 


POP 

FMSARG+F $N AM 

and name 


CALL 

XLATRM 

Translate the terminator 


CMP 

#TE$NTR, R1 

Enter? 


BNE 

30$ 

no, keep editing 


REGRES 


Restore everything 


PUSH 

R6 

Save argument pointer 


MOV 

2(SP),R5 

Get calling R5 value 


MOV 

MSP)*,(SP) 

Put abort address on top of stack 


JMP 

MSP)* 

Now go to the abort routine 

FMSER?: 

JMP 

FMSFAT 

FMS fatal error 

H0$: 

MOV 

F$LEN (R0),R1 

Get its length 


MOVMEK 

F$VAL'RO), #STFBF.” ; Move the data into a string buffer 


ADD 

R6.R1 

Point to end of string 


CLRB 

CR1) 

Make it ASCIZ 


MOV 

#*C<U0?>,R0 

Set CVT mask 


MOV 

TCS.R5(SP),R2 

Get argument pointer 


TST 

MR?) 

Wants upper case? 


BEC 

60$ 

yep, go on 


MOV 

#“C<M2>, RO 

Use different mask 

60$: 

CALLX 

CVT$$ ; 

; Trim up the string 


MOV 

R5.R1 ; 

; Copy pointer 

60$: 

TSTB 

(PI) -e ; 

; Find end of string 


BNE 

60$ 



MOV 

2(R2),R? 

Get table pointer 


BEC 

10$ 

no table pointer, just process terminator 


MOV 

(R2),R3 

Get pointer to field name table 


BEQ 

110$ 

No field processing, go on 

70$: 

TST 

(R3) 

End of table? 


BEQ 

110$ 

yep, try terminator processing 


MOV 

FMSARG+F AM,RH 

Get pointer to field name 


CMP 

(R«)*, (R3) 

Is this the field name? 


BNE 

80$ 

no, go on 


CMP 

- RU)4,?(R3) 

Really the field name? 


BNE 

80$ 

nah, not really 


CMP 

(RH)e,«l(R3) 

This is getting *yawn f boring... 


BEO 

90 $ 

Hey, MI KEY! We found one... 

80$: 

ADD 

#10,R3 

; Try next entry 


PF 

70$ 


90$: 

FEGSAV 


Save everything 

PUSH 

FMSARG-fF $TFM 

Save the terminator code 


PUSH 

FMSARG+F $N AM 

and the field name pointer 


PUSH 

FMSARG+F $NUM 

and the index of the field 


CLR 

-(SP) 

Clear a word 


CALL 

#6(R3) 

Call the field processing routine 


INC 

(SP) 

Don’t do terminator processing 


MOV 

(SP) ♦, FIRQB 

Stash this away for a minute 


POP 

FMSARG+F $NUM 

Restore the index of the field 


POP 

FMSARG+F JN AM 

and the name pointer 


POP 

FMSARG+F $TFM 

Restore the terminator 


MOV 

R5,TOS.R5(SP) 

Paste up string pointer 


REGRES 


Restore everything 


MOV 

FIRQB.R3 

Pick this up again 


TST 

R5 

Any string pointer now? 


BEO 

100$ 

no, don’t display anything in field 


CALFMS 

PUT, V AL=F5, LEN = -1 

1 ,ARG=IFMSARG,ERR=FMSER2 ; Redisplay the field 

100$: 

TST 

R3 

; Want terminator processing? 


BEQ 

160$ 

; no, never, get field again 

110$: 

MOV 

2(R2),R3 

Get pointer to terminator table 


BEQ 

no$ 

none, process existing terminator 

120$: 

TST 

(R3) 

End of table? 


BEQ 

140$ 

yep, process terminator 


CMP 

(R3)+,FMSARG+F$TRM ; Is this the terminator? 


BEO 

130$ 

yes, dispatch to service routines 


TST 

(R3) + 

Skip service routine address 


BR 

120$ 

and keep looking 

130$: 

REGSAV 


; Save everything 


CALL 

MR3) + 

; Call the service routine 


BR 

150$ 

; Don’t do terminator processing 


REGRES 


; Restore all 

1H0$: 

JMP 

10$ 

; and do terminator processing 

150$: 

REGRES 


; Restore all 

160$: 

JMP 

30$ 

; and don’t do terminator processing 


ENABLE/34 
ANOTHER 
POINT 
OF VIEW 

By Kevin Munday 
System Analyst, ABLE Computer 


In the February issue of 
The RSTS/PROFESSIONAL, 
an article pointed out 
what were felt to be some 
deficiencies with ABLE’S 
ENABLE. This is a 
response to that article. 


The ENABLE is a hardware/software product which 
allows an 18 bit PDP-11 to address 22 bits of memory. This 
means that a 128kb RSTS system can now access four 
megabytes of memory (if one has that much physical 
memory in the machine). Such an expansion substantially in¬ 
creases system throughput by allowing all currently existing 
programs to remain memory resident. Disk swapping is 
substantially reduced. CPU speed becomes the only perfor¬ 
mance limiter. 

The ENABLE is not intended to replace new or larger 
machines, but rather to upgrade existing systems when 


.DSABL LSB 


? 
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budget does not support acquisition of a larger system or 
when the user wishes to optimize the existing investment. 

Installing the ENABLE is indeed not a simple five 
minute job. but it can be done in a relatively short period of 
time with the help of the manual. In addition. ABLE'S Tech¬ 
nical Support De¬ 
partment is always 
willing to help with 
the installation 
over the phone, 
even to the point of 
talking a non¬ 
technical user 
through restrapp¬ 
ing of memory 
boards for new ad¬ 
dresses. ABLE has 
a toll-free number 
(800-854-9471) to 
facilitate this kind 
of help. 

If one buys the 
ENABLE, there are 
other hardware 
commitments 
which must be 
made, such as ex¬ 
pansion space. 22 
bit memory, etc. 

ABLE offers an ad¬ 
ditional solution, 
the MEGABOX. 
which provides an 
ENABLE and 22 bit 
memory in a separ¬ 
ate backplane (this 
subsystem requires 
very little installa¬ 
tion). 

ENABLE does 
require patches to 
the operating 
system. When 
ABLE receives up¬ 
date listings from 
DEC (e.g., from 
V7.0 to V7.1), a 
new ENABLE patch 
is written within 
two weeks. The 
patch is field tested 
and then is available to ENABLE users. Total lag time is 45 
days. ENABLE users who upgrade their operating system 
must contact ABLE to order the new patch. 

The ENABLE has fairly tight specifications as to which 
devices are compatible with it on a UNIBUS. As a result, it is 
not a device which can go on every machine and this tends 


to limit the number of users who will find the ENABLE op¬ 
tion viable. 

If you do have problems with your system. ABLE is 
always glad to help coordinate any support efforts with 
DEC. But if they never receive a call from the customer, they 

can't do anything 
about it. In addi¬ 
tion, it is easy to 
put the ENABLE in 
a mode where it is 
transparent to the 
system (18 bit as 
opposed to 22 bit) 
for testing to 
determine whether 
or not the problem 
lies with the 
ENABLE product. 
In any case, the 
customer should 
always feel free to 
call ABLE'S 
Technical Support 
Department before 
calling DEC. 

As far as prob- 
lems with the 
ENABLE hardware, 
there was at one 
time a problem 
with RSTS/E not 
handling parity 
memory properly 
due to the optional 
cache available 
with the ENABLE. 
This problem no 
longer exists. 

The ENABLE 
patches are written 
specifically to avoid 
conflict with DEC 
patches. They do 
not, to ABLE'S 
knowledge, conflict 
with any DEC patch 
for RSTS/E. If a 
customer does find 
a conflict with 
DEC'S patches to 
RSTS/E. he should 
inform ABLE immediately so that the problem can be in¬ 
vestigated and resolved. 

Overall, the ENABLE performs better than originally 
designed. Users are discovering new applications, and the 
number of ENABLE/MEGABOX installations is rapidly ex¬ 
panding. 9 


-FINAR- 

The only electronic 
spreadsheet that’s 
powerful, versatile 
and easy to use. 


With FINAR it’s easy to prepare com¬ 
plex budgets, forecasts, financial 
statements, cash-flow projections and 
more. But that’s only the beginning. 
FINAR can perform sophisticated 
tasks that far surpass any of the 
"calcs” capabilities. In fact, in every 
situation where FINAR has been com¬ 
pared to the “calcs", FINAR has been 
chosen. 

FINAR IS POWERFUL. 

FINAR is a real business system, ver¬ 
satile enough to meet the needs of the 
largest corporations and smaller firms 
too. FINAR’s capabilities include ex¬ 
tensive mathematical functions; 
graphic output; interfaces with other 
systems; flexible report format; work¬ 
sheet definition and control directives. 


FINAR IS EASY TO LEARN. 

In just two days one can learn all that 
is needed to perform the most com¬ 
plex financial analyses with FINAR. 
Commands are in English—not “com¬ 
puterese”—and simple prompts let 
one know what information the system 
requires to compute the answer to a 
question. 

FINAR IS EASY TO USE. 

All you need is a DEC PDP-11 with 
RSTS or a VAX-11 and FINAR to plan 
calmly for whatever the future has in 
store. FINAR is available for as little as 
$4500. For a demonstration of 
FINAR’s unlimited technical capabili¬ 
ties and ease of operation, call: 

Walter Fleming (713) 664-1172. 



JAMES B. HOTZE & CO. 

6101 Southwest Freeway, Suite 406 
Houston, Texas 77057 
(713) 664-1172 
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RESIDENT LIBRARY TIPS 
FOR DIBOL USERS 

By John Wolnisty, Beta Data Systems, Inc.. Tucson, AZ 


When it comes to utilizing the elegant facilities RSTS 
has available, DIBOL programmers have traditionally been 
left with the short end of the stick. Never being one to leave 
well enough alone, I became intrigued with the use of 
read/write resident libraries to share data among several 
concurrently running programs. Furthermore, the programs 
were in DIBOL. Version 4.5 of DIBOL supports resident 
library use, and in fact, the run time support is a resident 
library (previous versions were a run-time system) itself. 
Resident library support was added to allow use of the RMS 
resident library and little else. DIBOL does not use a stan¬ 
dard subroutine linkage convention, so use of a resident 
library for user-written routines was not a prime considera¬ 
tion. Why a read/write resident library? The uses for such a 
structure are only limited to the programmer's imagination. 

I have implemented them in three different applications: a 
"real-time" file access program, a multi-user game and a 
mail-box program. To describe how this was implemented 
some DIBOL internals need to be explored first. 

COMMON SECTIONS. 

A COMMON section in DIBOL is similar to COMMON 
found in FORTRAN, in that variables defined in the COM¬ 
MON are available to all the subroutines of the programs. 
One difference is that the names MUST be the same 
throughout the main program and subroutines and must be 
five characters or less. COMMON defined in the main pro¬ 
gram generates a global symbol consisting of the five 
characters of the name and a '$' appended to it. COMMON 
defined in a subroutine generates a global reference to the 
symbol of the same name. These references are all resolved 
by the task builder at link time. The following program, 
which serves no useful purpose except illustration, shows 
use of COMMON in a DIBOL program. 

START ;This is a conventional DIBOL program using COMMON 

COMMON DATA1 

CUST1, A400 

LOCKF, D1 
ITEMS, A50 
COMPA r A200 
RECNM, D5 

RECORD 

INFILE, A26,’[45,551CUSMAS.DD5/M0DE:256' 

PROC 

0PEN(1,U,INFILE) 

READ(1,CUST1,1) 

XCALL PASS1 
XCALL PASS2 
WRITE(1,CUST1,1) 

STOP 

SUBROUTINE PASSI 

;The common section here will generate global references 
;to the names within the common section. The presence of 
;the common in the root resolves these references. 


COMMON DATA 1 

CUST1, A400 

LOCKF, D1 
ITEMS, A50 
COMPA, A200 

RECNM, D5 

PROC 

READ(1,CUST1,1) 

CUSTIr 

RETURN 

SUBROUTINE PASS2 

COMMON DATA1 

CUST1, A400 

LOCKF, D1 
ITEMS, A50 
COMPA, A200 

RECNM, D5 

PROC 

WRITE(1,CUST1,1) 
RETURN 


A portion of the task builder map reveals what hap- 


pened 

to the COMMON section. 

GLOBAL 

CROSS REFERENCE 



SYMBOL 

VALUE 

REFERENCES. . . 

COMPA$ 

003075-R 

PASS1 


RPR01 <— A peice of our COMMON 

CUST1$ 

002172-R 

PASS1 

# 

RPR01 <— And another 

DATA1$ 

002172-R 

PASS1 


0 RPR01 <— Notice the address: same as 

ITEMS$ 

003013-R 

PASS1 - 

# 

RPR01 above 

LOCKF$ 

003012-R 

PA SSI 


PASSI # RPR01 

PASS1 

002002-R 

# PASS1 


RPR01 

PASS2 

002114-R 

# PASS2 


RPR01 

RECNM$ 

003405-R 

PASS1 

# 

RPR01 

RPR01 

003446-R 

# RPR01. 



RSDDT 

002000-R 

# RSDDTX 


RSDIRT 

$AC 

000156 

RSDDTX 


RSDIRT 

$ACEND 

000222 

RSDDTX 


RSDIRT 

$ACEXT 

000110 

RSDDTX 


RSDIRT 


Note in the map that the individual components of DATA1 
are allocated in the same order as in the program. This may 
or may not be important. The name of the COMMON (if it 
was named) always is of zero length. 

TRICKING DIBOL INTO USING A RESIDENT LIBRARY. 

If all the subroutines do for a COMMON section is 
generate a global reference, it seems to reason that ANY 
global section with the proper name would resolve the 
reference. This is indeed true! Just remove the COMMON 
section from the main program, and insert a section of code 
with the proper global symbols in its place. Lets do that 
now. 

Our original DIBOL program now becomes: 

START ;This is the DIBOL program with COMMON removed 

RECORD 

INFILE, A26,’[45,55]CUSMAS.DD5/M0DE:256’ 

PROC 

0PEN(1,U,INFILE) 

XCALL PASS1 
XCALL PASS2 
STOP 


Now no CUST1 $ is generated along with the other items. If 
we task built this, we would get unresolved reference errors 
for every item in the COMMON. It is now necessary to con- 
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PRACTICALLY SPEAKING. 





Sooner or later you will be using electronic 
mail. It just makes good sense. When you do, 
you will want a system that is complete—a 
delivery system, a scheduling system, and an 
information manager. Your electronic mail 
system will become an essential part of your 
office environment. USER-MAIL is such an 
electronic mail system? 

USER-MAIL’s power is easy to control. It 
relates to the way you work. Electronic IN, 
OUT, and HOLD baskets are just what you 
would expect. You can scan your IN basket, 
selecting only those message subjects you 
wish to read. Or, you can place a 
message into your HOLD basket for a 
number of days to have it automati¬ 
cally reappear in your IN basket on 
the appointed day. You can even have 
USER-MAIL recall specific messages 
by providing your own selection 
criteria. Replying, forwarding, and 
sending to groups are as easy as can 
be. And these are just a few of the 
features in store for you. 



‘USER-MAIL is currently available for DEC computers using the RSTS/E 
and VMS operating systems. 

RSTS is a registered trademark of Digital Equipment Corporation. 
USER-MAIL is a trademark of Logic extension Resources. 


You owe yourself a closer look. 
Write for a brochure or give 
us a call direct. 


North County 
Computer Services, Inc. 

2235 Meyers Ave. 

Escondido, California 92025 
(619) 745-6006, Telex: 182773 


■0000® 

■ 0000 ® 

■oooo® 


Visit us at 

DEXPO East 83 

Kiel Auditorium 
St Louis, Missouri 
May 22-24. 1983 


Booth *108 
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struct a new COMMON. This must be done in MACRO, but is 
easy, even for non-MACRO types. It would look something 
like: 



.PSECT DATA1$ 


DATA1$: 
CUST1$: 

. BLKB 

1*00. 

L0CKF$: 

. BLKB 

1 . 

ITEMS$: 

.BLKB 

50. 

C0MPA$: 

.BLKB 

200. 

RECNM$: 

.BLKB 

5. 


.END 

MAC this file, then task build as follows: 

TKB>DATA/-HD,DATA,DATA=DATA 
TKB>/ 

Enter Options: 

TKB>STACK=0 

TKB>PAR=DATA:160000:20000 
TKB>// 

Note: You can make it position independent if you want. 
DBLRES is position independent and will move where 
necessary. 

Now make it into a resident library using MAKSIL and 
answering the questions (mainly taking defaults after speci¬ 
fying the library name). You may now ADD the resident 
library with UTILTY with the following precautions: ADD 
with the RW attribute, set protection code as needed to 
allow the proper users write access (< 0 > if you're not sure 
or don't care), ADD with STAY attribute. 

USING THE RESIDENT LIBRARY. 

We now take our previous program and re-task build as 
follows: 

TKB>PR0G=PROG,PASSI,PASS2 

TKB>LB: DBLRES/L-B 

TKB>/ 

Enter Options: 

TKB>RESLIB=LB:DBLRES/RO 
TKB>RESLIB=[1,**]DATA/RW 
TKB>// 

Notice the lack of unresolved reference errors, as they were 
resolved to the resident library. The DIBOL program uses the 
COMMON area in the resident library exactly the same as it 
did before. There are several new features now. Any other 
DIBOL programs may specify this resident library during 
their task builds. When data is changed by one program ac¬ 
cessing any variable in the resident library, that change be¬ 
comes immediate in all programs using the library. This fact 
is extremely useful for sharing data among different pro¬ 
grams, and only maintaining a single copy of the data. It 
also poses a problem: you may have to install a lock variable 
to flag that the data is currently being updated to syn¬ 
chronize the use of the library. Since an entire APR is used to 
map the library, you can use up to 8192 bytes of data in the 
resident library. Notice also that the bulk of your program, 
and in fact all code referencing the resident library, must be 
in a subroutine. You can code the entire program as a 
subroutine and have a dummy main routine to call it. if 
needed. 

SUMMARY. 

There are a variety of tricks to be done under RSTS 
DIBOL, but like the preceeding. they are not always ap¬ 
parent to the casual observer. With a little digging, the 
DIBOL programmer can easily refute the smart-aleck BASIC- 
PLUS-2 programmer. STOP. 9 


»82 

Problem: RSTS does not support fruit. I can 
connect my ORANGE and my GRAPE to the 
Unibus, but RSTS refuses to acknowledge 
it. This fruit is essential for feeding the 
hamster (the one who runs real fast on his 
treadmill, to keep the computer running) 
whenever the hamster runs out of hamster 
food. As a result, whenever I am running 
low on hamster food, the hamster slows 
down or stops running, instead of eating 
the fruit. Then my customers call and com¬ 
plain. 

Isn’t there some way to support fruit on 
RSTS? Or possibly allow two hamsters to fit 
into the computer, taking shifts. RSTS 
could ring a bell every half hour to trade 
hamsters, so that each would have to take 
his fair turn and we wouldn't have any 
goof-off hamsters. 

Problem: RSTS does not boot on my TRS-80. 

I called DEC support about this, but they 
said that RSTS is only capable of running on 
a PDP-11 and could not be made to run on a 
TRS-80 without massive patches. Is this 
true? They said something about RSTS be¬ 
ing a “Sales Aid," and that the main reason 
RSTS was created is to help sales of 
PDP-11's. I told them that I didn't ap¬ 
preciate them making jokes with me. how 
can anything that costly be a Sales Aid? 

That's when they hung up on me. 

Can't you offer a feature in RSTS so that 
those of us without PDP-11 s can use RSTS? 
Especially us with TRS-80's and APPLES. 
Thank you. ^ 

SiHSHSZSHSHSi!S2SESZSZSJSHS25ESi!SHSZSZSZSZSZSJSHSZ5ZSZS2SZSZSZSZSZSZS2SZSHSHS2sS' 
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T $32,000 

*.in to 4MB a 


TERMINALS 

VT100 LAI 2 
LA34 
LA50 
LAI 00 
LAI 20 


CPUs 

PDP 1 1/23, 

1 1/44 & VAX 

INTERFACES 

MODEMS 


COMPLETE 
DATA SYSTEMS 

with standard 
and 

custom 

software 


VT101 

VT102 

VT125 

VT131 


SPECIAL 

LSI-11 NODULES, PERSONAL COMPUTERS 


WHY YOU SHOULD CALL UNITRONIX FIRST 


• Immediate Delivery from $6 mm Warehouse Inventory 

• Complete Equipment Service Capability 

• Excellent Pricing/Discount Structures 

In just over 6 years. Unitronix Corporation has emerged 
as a leading supplier of Digital Equipment Corporation 
(DEC) microcomputers, terminal products, printers, ac¬ 


cessories and supplies on both a domestic and interna¬ 
tional level. Our new. ultra-modern 20.000 sq. ft. facility 
in Somerville. New Jersey, houses executive offices, in- 
house programming, customer service, sales and mar¬ 
keting. component testing and complete warehouse 
facilities. 


O UNITRONIX 

rnDDHOATIHM 


CORPORATION 

197 Meister Ave.. Somerville, NJ 08876 
TELEX: 833184 


AUTHORIZED 

EDSDDBO 

TERMINALS DISTRIBUTOR 

CALL FOR LATEST PRICES 

( 201 ) 231-9400 


CIRCLE 25 ON READER CARD 




LSTLOG.MAC 

By David Patterson, Sivall's, Inc.. Odessa. TX 


DEC has given us the ability to assign a number of 
things to a job that are not physical devices. These consist of 
a private library (the character), a default protection 
code, and up to four logical assignments, (three if any of 
them include PPN's). Besides the fact that more than three 
or four logicals would occasionally be handy in a develop¬ 
ment situation, the only real problem is that DEC gave us no 
way to find out what a job currently has assigned. In a 
development situation where you are using copies of your 
production data files on your development account for 
testing purposes this can be annoying, since the only way to 
verify the assignments is to deassign everything and then 
reassign them. 

When I started using the private logicals for develop¬ 
ment on a regular basis. I decided to write a program to 
display the current settings for the current job. This is really 
not a terribly difficult task since the information is all kept 
in the job's low-core area (Systems Directives Manual. Sec¬ 
tion 2.4). All I had to do was format and print it. The follow¬ 
ing program does just that. I hope others will find is as 
useful as I have. 


global 

lstlog 

; Starting address. 

global 

$c5ta 

; Radix-50 to ASCII conversion. 

global 

$cbdsg 

; Number conversion. 

.mcall 

exit$s 

; Exit macro. 

• page 

.sbttl 

Macros 


num$ 

val,stradr 

; Convert a value to a 

. nlist 


; string. 

push 

<r1,r2> 

; Save these. 

mov 

stradr.rO 

; Where to put the string. 

mov 

val,r1 

; The value to convert. 

clr 

r2 

; Zero spppression. 

call 

$cbdsg 

; (In SYSLIB). 

pop 

.list 

num$ 

<r2,r1> 

; Get them back. 

radtoa 

.nlist 

val,stradr 

; Convert a rad-50 number 

push 

<r1,r2> 

; to ascii. 

mov 

stradr.rO 

; Where to put it. 

mov 

val,r1 

; The value. 

call 

$c5ta 

; Convert it. 

pop 

.list 

<r2,r1> 

J 


.endm radtoa 


• page 

.sbttl Main program 


.psect 1st log,rw,i,lcl,rel,con 


lstlog: tst 
beq 


usrprt 

20 $ 


.nlist bin 



bic 

#377.usrprt 

Clear the flag. 

.nlist bex 



swab 

usrprt 

Get the prot in the low byte 

.nlist me 



num$ 

usrprt,r0 

<nnn 

.list ttm 



swab 

usrprt 

Put it back 

.enabl lc 



bis 

#377.usrprt 

the way it was. 




movb 

#*>, (r0)«- 

<nnn> 

title LSTLOG,<List user logical table>,04,22-Jun-82,<DMP> 

10$: 

cmpb 

#15,(r0) 

Zap the rest of the 




beq 

20$ 

default message. 

.sbttl Comments and Edit History. 


clrb 

(r0)* 





br 

10$ 


Program name: 

LSTLOG 

20$: 

tst 

usrppn 

Is a PPN assigned? 

Date written: 

9-Sep-8l 


beq 

40$ 

No. Skip to the logicals. 

Author: 

David Patterson 


mov 

#defppn,r0 

PPN address. 

Installation: 

Sivalls, Inc. 


mov 

usrppn,rl 

Get the PPN. 




call 

fmtppn 

Format it into the buffer. 

Remarks: 


30$: 

cmpb 

#15,(r0) 

Zap the rest 




beq 

40$ 

of the default 

This is a stand 

-alone program which will print 


clrb 

(r0) + 

message. 

a list of the users current logical assignments 


br 

30$ 


on his terminal 


40$: 

mov 

#4,r4 

Four logoicals in table. 




cmp 

#177777,usrlog+30 

Is there a PPN in use? 

The information 

in this document is subject to change 


bne 

50$ 

Nope. 

without notice , 

and should not be construed as a commitment 


dec 

r4 

Yep. That means only 3. 

by either the author or Sivalls, Inc. 

50$: 

mov 

#usrlog,r2 

Start of logical table. 




mov 

#usrlog+32,r3 

Start of PPN’s. 

Linking Information: 



mov 

#logicl,r0 

Start of output. 



60$: 

t3t 

(r2) 

Is the current one used? 

MAC LSTLOG,LSTL0G=COMMON,LSTLOG 


beq 

70$ 

Nope. 

TKB LSTLOGrLSTLOG 


call 

fmt 1 og 

Yes so format it. 



70$: 

add 

#8.,r2 

No. Bump the pointer. 

Modification History: 



tst 

(r3) + 

And the PPN pointer. 




sob 

r4,60$ 

Next one. 

Ver/Edit 

Date Modification 


cmp 

#logicl,r0 

Did we do any logicals? 




bne 

80$ 

Nope. 

V7.0-00 

9-Sep-8l Initial conception (DMP). 


mov 

#defend,r0 

Yep. 



80$: 

movb 

#12,(r0)+ 

Final <LF>. 

V7.0-01 

14-Sep-8l General cleanup (DMP). 


call 

clrxrb 

Clear the XRB. 




mov 

#headng,xrb+xrloc 

Where it starts. 

V7.0-02 

2-Oct-8l Fix problem in check for 


sub 

#headng,rO 

Calculate the length. 


end of logical table (DMP). 


mov 

rO,xrb+xrlen 

Number of bytes to 




mov 

r0,xrb+xrbc 

write (twice). 

V7.0-03 

12-May-82 Fix problem with premature 


.write 


Write it. 


exit if the first unused 
entry is not the last entry. 

22-Jun-82 Fix problem with the PPN 

check. If the RAD-50 repre¬ 
sentation of the fourth 
logical assignment happened 
to set the sign bit the 
program was interpreting it 
as PPN's for the second and 
third logicals. 


exit $s 


.page 

.sbttl Local Subroutines 


.page 

.sbttl 


Global symbols 


Clear the XRB. 


push 


Is a default pro set? 
No. skip to the PPN. 


; That’s all folks 


Clear the XRB. 
We may need 
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Ybur Vi'drive 
connection. 
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It's easy to interface your Vi" drive to a 
DEC computer. When you have connections. 


Dataram provides tape drive connections to your 
host LSI-11, PDP-11, or VAX computer, with a 
family of couplers/controllers that operate in 
NRZI, PE, or GCR modes. Dataram's 
couplers/controllers operate with Vi" tape drives 
from all major manufacturers. As slow as 25 ips 
— or as fast as 125 ips. 200 BPI to 6250 BPI. 
With TMll and TSll emulations. 

Start-stop or streaming. Efficient streaming is 
supported by a unique RSX-llM utility, 
FASTSAVE-llM, which provides optional 
backup and save capability for Dataram's 
streamer coupler. A full one-year warranty is 
standard. 


For more information about 

Vi" drive connections, call (609) 799-0071. 

We'll help you make the connection you need! 


STANDARD AND STREAMER 

GCR 

-AMPEX KENNEDY 

CIPHER PERTEC 

CDC S. E. LABS 

DATUM TANDBERG 

DIGI-DATA TDX 

STC 

TELEX 


Dataram Corporation. Princeton Road. 
Cranbury, NJ 08512. (609) 799-0071. 

LSI-1 1, POP and VAX are registered trademarks of 
Digital Equipment Corporation 

FASTSAVE is a trademark of Computer Systems Advisors 
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push 

mov 

mov 

10$: clrb 

sob 
pop 
pop 


rl 

#xrb,r0 
#xrbsiz,r1 
(r0) + 
rl,10$ 
rl 
rO 


these later. 

Address of the XRB. 
The length In bytes. 
Clear this byte. 

Until we're done. 

Get them back. 

Return to the caller. 


Format the word in Rl as a PPN ([nnn,nnn]) starting 
where RO is pointing. 


fmtppn: 


Format the current entry in the logical table 
(pointed to by r2) in to the outout buffer (pointed to 
by rO). 


push 

movb 

swab 

bic 

num$ 

movb 

pop 

bic 

num$ 


rl 

#•[,(r0)+ 
rl 

#177400,rl 
rl ,r0 
#’,,(r0)+ 
rl 

#177^00,rl 
rl ,r0 


Format the number in Rl as a 
PPN where rO points. 

[ 

Clear the 

project number. 

[nnn 

[nnn, 

Get the original back. 

Clear the programmer number, 
[nnn,nnn 


fmtlog: 

push 

r2 

Save R2. 


movb 

#'],(r0)+ ; [nnn,nnn) 




push 

rO 

And R0. 


return 

; That's it. 




mov 

#32.,r1 

Insert 32 






10$: 

movb 

#40,(r0)+ 

spaces 







sob 

rl, 10$ 

here. 


.page 





sub 

9 11.,rO 

Back up 12 spaces. 


.sbttl 

Data Area. 




mov 

(r2)+,r1 

First half of name. 







radtoa 

rl ,r0 

Convert to ASCII. 

headng: 

. byte 

15,12,12 




mov 

(r2)+,r1 

Second half of name. 


.ascii 

/LSTL0G V/ 




radtoa 

rl ,r0 

Convert to ASCII. 


.byte 

sysvel/4004377, sysveeA377 



20$: 

cmpb 

#40,-(rO) 

Back up past the spaces 


.byte 

sysvee/4004377, 




beq 

20$ 

(to float the colon). 


• byte 

$$$ver4377, $$$ver/4004377 




inc 

rO 



.ascii 

/ User assignments listing/ 




movb 

#':,(r0) 

Insert the colon. 


. byte 

15,12,12 




pop 

rO 

Restore R0. 







add 

#32.,rO 

Re-adjust the pointer. 


.ascii 

/Default protection: </ 




tst 

(r2) 

Is there a physical name? 

defpro: 

.ascii 

/none>/ 




bne 

40$ 

Yep. 


.byte 

15,12 



30$: 

cmp 

( r2)+ ,(r2)+ 

Nope. Bump the pointer. 







br 

60$ 



.asciz 

/User assignable PPN: / 



*10$: 

movb 

(r2)+,(r0)+ 

First character. 

defppn: 

.ascii 

/<none> / 




movb 

(r2)♦,(rO) + 

Second character. 


.byte 

15,12,12 




bit 

#177400,(r2) 

Is there a unit number? 







beq 

50$ 

No. 


.ascii 

/User logical table: Logical Physical/ 




bic 

#177400,(r2) 

Zap the flag. 


.byte 

15,12 

; CRLF. 



num$ 

(r2),r0 

Stick it in the buffer. 


.ascii 

/ ./ 




bis 

#177400,(r2) 

Un-zap the flag. 


.byte 

15,12 

; CRLF. 


50$: 

tst 

(r2) + 

Bump it. 







movb 

#':,(r0) + 

Insert a colon. 

logicl: 

.ascii 

/ <none>/ 



60$: 

cmp 

#177777,usrlog+30 

PPN's present? 


.byte 

15,12 

; CRLF. 



bne 

70$ 

Nope. 







mov 

(r3),r1 

Yep. 

defend: 

.blkbO 

< 512. - < . - headng >> ; The rest of 

512. bytes. 



beq 

70$ 

Not this one though. 







call 

fmtppn 

Format it. 


size 

= . - lstlog ; Total size 

of code. 


70$: 

movb 

#15,(r0)+ 

<CR>. 







movb 

#12,(r0)+ 

<LF>. 


.end 

1st log 




pop 

r2 

Get R2 back. 







return 


Back to the caller. 





V 



S3. 
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DN11 AUTODIALER ‘ENABLE’ PATCH 

FOR INIT.SYS 

By Jim Hobbs, MIS # 410, Adolph Coors Company. Golden, CO 

THIS SOFTWARE HAS NO GUARANTEES. EXPRESSED OR IMPLIED. AND IS FREE TO BE COPIED. REPRODUCED OR MODIFIED. 
ANYONE WHO HAS A COPY MAY USE IT. 

AUTHOR AND AUTHOR S COMPANY ASSUMES NO RESPONSIBILITY FOR USE OR RELIABLITY OF THIS SOFTWARE. 


This patch enables the DN11 auto 
dialer. Without modification of INIT.SYS an 
error of 14 (device hung write locked) is 
given when trying to print to channel that 
DN was opened upon. 

After editing (use TECO, or control file 
becomes useless) SYSGEN.CTL to include 
DNDRV.OBJ, DNTBL.MAC and DNCFG.MAC 
as specified, run SYSBAT as usual. After 
patching monitor (if selected) INSTALL your 
newly created SIL. Ignore the Warning — 
no set up for device DN’. Use DEFAULT to 
establish your normal defaults. 

Now at OPTION specify PATCH. The 
following is how we have ‘enabled’ the 
DN11 for versions 7.0 and 7.2 (we never 
tried to implement 7.1). 

Option: PATCH 
File to patch? INIT.SYS 
Base address? XN.PKT 
Offset address? 10 
Base Offset Old New? 


046676 

000010 

07 2406 

? 

*Z 

Offset 

address? 

*Z 



Base address? 072406 



Offset 

address? 

42 



Base 

Offset 

Old 

New? 

072406 

000042 

073446 

? 

~Z 

Offset 

address? 

22 



Base 

Offset 

Old 

New? 

072406 

000022 

012722 

? 

012602 

072406 

000024 

000004 

? 

012712 

072406 

000026 

012602 

? 

000114 

072406 

000030 

012712 

? 

052712 

072406 

000032 

000114 

? 

002001 

072406 

000034 

052712 

? 

004536 

07 2406 

000036 

002001 

? 

073446 

072406 

000040 

004536 

? 

005012 

072406 

000042 

073446 

? 

000207 

072406 

000044 

000207 

? 

<LF> 

072406 

000046 

012762 

? 

<LF> 

072406 

000050 

177777 

? 

~Z 

Offset 

address? 





Base address? 
File to patch? 


The critical information used for both 
version’s modification is: 

FILE of INIT.SYS 
BASE of XN.PKT 
OFFSET of 10 

M OLD” of BASE and OFFSET 
OFFSET of 22 

REPLACEMENT of OFFSET 36 with 
value of OFFSET 42 
After patch is installed, boot system 
normally — auto dialer should now work. 

If patch is installed incorrectly (or per¬ 
haps even as stated although doubtful), 
system may not boot due to initialization 
error. Mount SYSGEN distribution, boot 
from it and COPY using SUPERCEDE YES 
for INIT.SYS file only. If other prior modifica¬ 
tions of INIT.SYS have been made you may 
want to copy the existing file to another 
disk or tape. 

* 


C-CALC 


THE ELECTRONIC SPREADSHEET 
FOR ALL COMPUTERS 


• C-CALC is the high-performance electronic spreadsheet 
written in the extremely CPU-efficient ‘C’ language- 
designed with speed, efficiency, and transportability in 
mind. 

• C-CALC is extremely user-friendly, with an ON-LINE HELP 
feature, comprehensive documentation, and built in train¬ 
ing procedure. C-CALC is a ‘menu’ oriented system with 
easy to use single level commands. 

• DIGITEC Software Design, Incorporated offers on-going 
product maintenance and extensive customer support 
services. 

• C-CALC is currently or soon to be available for the follow¬ 
ing operating systems: RSTS/E*, RSX-11M*, IAS*, RT11*, 
VAX/VMS*, TOPS 10/20*, UNIX**, VM/CMS(IBM), 
GCOS(HONEYWELL), and many more. Data is fully 
transportable between operating systems. 

For more information, 

Call: (206) 821-7507 

Registered trademark of Digital Equipment Corporation 

** Registered trademark of Bell Laboratories 


C-CALC’s features include: 

• Fully transportable data 

• Supports most types of terminals 

• Extensive ON-LINE HELP 

• Built in training procedures 

• Menus and single level commands 

• Variable width columns 

• Comprehensive worksheet consolidation 

• Computed Coordinates 

• Alpha or Numeric Column Coordinates 

• IF-THEN -ELSE 

• Conditional formatting 

• No C-Compiler required on host system 


DIGITEC 


Software Design, Inc. 


14125 - 108th Avenue NE, Kirkland, WA 98033 
(206) 821-7507 
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STRTUP / SPAWN 

By Steve Roy. Bloomfield. CT 


10 EXTEND 

100 ! THIS PROGRAM IS THE CONTROLLING HALF OF A JOB STARTUP TEAM. 

! IT CAN BE INVOKED "INLINE" OR "CHAINED-TO" BY ANY USER 
! (DEPENDING ON ITS LOCATION AND PROTECTION CODE). THIS 
I PROGRAM CREATES A JOB, AND THEN UTILIZES THE "SPAWN" PROGRAM 
! TO FINISH THE CREATION PROCESS, AND CHAIN TO A USER PROGRAM. 

! TYPICALLY, THIS IS USEFUL FOR STARTING JOBS THAT DETACH, AND 
I SAVES HAVING TO ALLOW NON-PRIV USERS ACCESS TO PRIV ACCOUNTS. 
! ATPK CAN PROVIDE THIS STARTUP CAPABILITY FROM PRIV ACCOUNTS, 

! BUT SINCE THE "$LOGIN" COMMAND TO ATPK IS DISABLED FOR 
I NON-PRIV USERS, THEY CANNOT STARTUP JOBS OTHER THAN IN THEIR 
I OWN ACCOUNT. FURTHERMORE, IF THE STARTUP OF A SPOOLER, DATA- 
! BASE MANAGER, ETC. IS TO BE A MENU-DRIVEN CAPABILITY FOR ONE 
I OR MORE NON-PRIV USERS, THE MENU MUST BE RE-ENTERED AFTER 
! COMPLETION OF A STARTUP. THIS IS IMPOSSIBLE WITH ATPK, SINCE 
! IT DIES WITH A "?JOB LOGGED OUT" ERROR WHEN THE CONTROLLED 
! JOB DETACHES FOR NON-PRIV USERS. 


1000 ON ERROR GOTO 19000* 

\ TRAP$=CHR$(6*)+CHR$(-7*) ! CONTROL/C TRAP 

\ T$=SYS(TRAP$) 

\ PK*=0* ! INITIAL PK NUMBER 

\ PRINT "Database Manager Startup & Security Module" 

\ PRINT 

\ PRINT " ••••• Whatever messages you want go here •••••** 

\ PRINT 

\ PRINT "[RETURN] to continue, [~C] to goto MENU..."; 

\ INPUT T$ 

I 

! TYPICALLY, YOU WOULD HAVE SOME CODE HERE TO VERIFY THAT THE 
I USER INVOKING THIS PROGRAM IS, IN FACT, THE USER YOU WANT TO 
I BE DOING SO. PERHAPS PRINT A RANDOM SEED, AND REQUIRE A 
! RESPONSE BASED ON THE SEED (NUMBER, LETTERS, ETC). 

! FAILED RESPONSES SHOULD BE LOGGED IN A FILE, ALONG WITH KB#, 

! PPN, TIME, AND DATE. THEN, A SIMPLE GOTO 32000* WILL RETURN 
I TO THE MENU. 

\ GOSUB 10000* ! GET A PSEUDO-KEYBOARD 

! 

! IDENTIFY THE KB THAT IS ATTACHED TO THE PK THAT WE GOT... 

\ K*=ASCII(MID(SYS(CHR$(6*)+CHR$(-8*)+CHR$(3*)),11*,1*))/2* 

I 

I THE NEXT TWO FILENAME-STRING-SCANS REFER TO THE "SPAWN" 

I PROGRAM, AND THE PROGRAM TO WHICH "SPAWN" MUST CHAIN. 

\ T1$=SYS(CHR$(6*)+CHR$(-23*)+"PROG:SPAWN") 

\ T2$=SYS(CHR$(6*)+CHR$(-23*)♦"PROG: MANAGE") 

! 

I NEXT, CREATE A JOB (WHICH WILL RUN "SPAWN") AND TELL IT WHAT 
I IT NEEDS TO KNOW TO START AND CHAIN. 

\ T$=SYS(CHR$(6*) ♦CHR$( 24* ) +CVT*$(0*) •» 

MID(T1$,5* ,6* ) ♦ 

CVT*$(-1*)♦ 

MID(T2$,5*,6*)+ 

CHR$(111*)+CHR$(1*) ♦ 

CHR$(K*)+ 

CHR$(0*) ) 


I CREATE A JOB 
! AND START "SPAWN" 

! ANY EXTENSION 
I SPAWN CHAINS "MANAGE" 
t PPN TO LOGIN UNDER 
! KB (PK) TO ATTACH 
! SPARE BYTE 


1020 ! THIS IS -WHERE WE WAIT FOR "SPAWN" TO CREATE A JOB. 

! ADDITIONALLY, THIS WILL ECHO ANYTHING PRINTED BY THE CHAINED 
! PROGRAM, ALERTING US TO ANY ERRORS ON ITS PART. 

SLEEP 2* I WAIT FOR PK TO WORK 

\ GET #3* ! GET SOME STUFF 

\ R*=RECOUNT 1 SAVE SIZE 

\ FIELD #3*. R* AS R$ ! MAP IT 

\ PRINT R$; I AND ECHO LOCALLY 

\ GOTO 1020* 


1030 ! HERE WE CHECK TO SEE IF THE CONTROLLED JOB HAS DETACHED, 

! IS BUSY WORKING, OR IF IT HAS RETURNED TO A "*C" STATE. 

PUT #3*. RECORD H*, COUNT 1* 

I IF NO ERROR IS GENERATED, THE JOB HAS GONE TO "~C" STATE... 

1040 ! UPON CLOSING THE PK, ANY CONTROLLED JOB THAT HASN'T DETACHED 

! GETS KILLED... 

CLOSE 3* ! ALL DONE W/PK 

\ PRINT 

\ PRINT "Returning to MENU..." 

\ SLEEP 2* ! WAIT FOR THEM TO READ 

\ GOTO 32000* 


10000 ! HERE WE OPEN A PSEUDO-KEYBOARD. 

OPEN "PK"+NUM1$(PK*)♦":" AS FILE 3* 

\ RETURN ! SUCCESSFUL OPEN 


19000 

GOTO 32000* IF ERR=28* ! 

CTRL/C 


OR ERR=11* AND ERL=1000* ! 

CTRL/Z FROM KEYBOARD 

\ 

RESUME 1030* IF ERR=11* | 

PK: IS TOO SLOW 

\ 

GOTO 19020* UNLESS ERR=8* AND ERL=10000* 

! PK IN-USE ? 

\ 

PK*= PK*+1* I 

STEP TO NEXT PK 

\ 

RESUME 10000* 


19020 

RESUME 19030* IF ERR=6* OR ERR=4* ! 

NO SPACE ON SYSTEM 

\ 

RESUME 1040* IF ERL=1030* AND ERR=5* I 

CONTROLLED JOB GONE 

\ 

RESUME 1020* IF ERL=1030* AND ERR=3* 1 

CONTROLLED JOB BUSY 

\ 

PRINT "Unexpected Error #";ERR;"at line"; 

ERL; 'in "STRTUP". ' 

\ 

PRINT "Returning to menu..." 


\ 

SLEEP 4* \ GOTO 32000* 


19030 

PRINT "No room on system for STRTUP - Try 

again later..." 

\ 

SLEEP 4* 


32000 

CHAIN "PROG:MENU" 


32767 

END 



10 EXTEND 

100 ! THIS PROGRAM IS USED IN CONJUNCTION WITH A CONTROLLING 4 

I JOB THAT IS ATTEMPTING TO SPAWN A JOB AT A PSEUDO-KEYBOARD. 4 

! TO SAVE THE CONTROLLING JOB FROM HAVING TO FORCE A LOGIN 4 

! STRING (WITH ACCOUNT,PASSWORD,AND PROGRAM TO HOOK TO), THIS 4 

I PROGRAM PERFORMS 1)ATTACH TO PSEUDO KEYBOARD, 2)L0GIN TO 4 

! AN ACCOUNT (RATHER THAN RUNNING LOGGED-OUT), 3)CHAIN TO A 4 

! PROGRAM TO BE RUN. THIS PROGRAM SHOULD BE INVOKED THROUGH 4 

! THE "CREATE-A-JOB" SYS CALL. THE "ATPK" PROGRAM USES THE 4 

I SPAWNING ENTRY (29000) OF "LOGIN" TO PERFORM THESE FUNCTIONS. 


1000 

\ 

\ 


\ 


\ 


\ 


\ 


\ 

\ 


\ 


\ 


ON ERROR GOTO 19000* 4 

FIP$=CHR$(6*) \ Z0$=CHR$(0*) \ TWO.0$=CVT*$(0*) \ M1$=CHR$(-1*) 4 
CORE$=SYS(CHR$(7*)) I GET CORE COMMON 4 

I CORE-COMMON CONTAINS: 4 

I 1-2 PPN CONTAINING PROGRAM TO CHAIN TO 4 

I 3-6 PROGRAM TO CHAIN TO (RAD-50 FORMAT) 4 

! 7-8 PPN TO LOGIN UNDER 4 

I 9 KB TO ATTACH TO 4 

I 10 SPARE (ONLY SPARE BYTE) 4 

I* = ASCII(SYS(FIP$+CHR$( 9*)) )/2* I GET OUR JOB NUMBER 4 

! 4 

I BEING NOTHING MORE THAN A TWINKLE IN THE EYES OF RSTS, WE 4 

! MUST MAKE OURSELVES HEARD... FIRST, WE ATTACH TO THE TERMINAL 4 
! SIDE OF THE PSEUDO-KEYBOARD THAT THE CONTROLLING JOB CWNS. . . 4 
T$=SYS(FIP$+FIP$+CHR$(I*)+MID(CORE*,9* , 1*)) I (RE)ATTACH 4 

! 4 

! NOW WE HAVE A KEYBOARD, WE CAN (OPTIONALLY) SAY SOMETHING... 4 

PRINT "Commencing Startup Sequence..." 4 

! 4 

I NOW, WE HAVE TO SETUP OUR SCHEDULING PARAMETERS... 4 

T$=SYS(FIP$+CHR$(-13*)+M1$+ 4 

M1$+CHR$(-8*)+ ! PRIORITY 4 

M1$+CHR$(6*)+ ! RUNBURST 4 

M1$+CHR$(31*)) I SIZE-MAX 4 

I . 4 

! NEXT... DETERMINE WHICH ACCOUNT WE ARE SUPPOSED TO LOGIN, 4 

! AND THEN PERFORM THE LOGIN (GIVING THE PASSWORD TO DO SO)... 4 

PPN$=MID(C0RE$,7* »2*) 4 

T$=SYS(FIP$+CHR$(4*)+TW0.0$+ ! LOGIN: 4 

MID(SYS(FIP$+CHR$(14*)+TWO.O$+ ! GET PASSWORD 4 

TWO.0$+PPN$+CHR$(1*)),7* >6*)) I GIVE IT OVER 4 

! 4 

I NEXT, BUILD THE NAME OF THE PROGRAM TO CHAIN... 4 

T$="("+NUM1$(ASCII(MID(C0RE$,2*,1*)))+ ! PROJECT # 4 

", "4-NUMl $( ASCII (CORE$))+")"+ I PROGRAMMER # 4 

RAD$(SWAP*(CVT$*(MID(CORE*,3*,2*))))+ ! PROGRAM 1-3 4 

RAD$(SWAP*(CVT$*(MID(CORE$,5*,2*)))) ! PROGRAM 4-6 4 

I 4 

! WELL, IT HAS BEEN NICE, BUT WE'VE GOT TO GO... BUSY, BUSY... 4 
CHAIN T$ ! SPAWN COMPLETE 


19000 PRINT "Startup error";ERR;"at line";ERL;'in "SPAWN".' 4 

! ERRORS WILL RETURN US TO A "*C" STATE, AND WE'LL GET KILLED 4 
! WHEN THE CONTROLLING JOB CLOSES THE PSEUDO-KEYBOARD. 


32767 END 


¥ 
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VAX ACCOUNTING-COBOL SYSTEM 


HAMILTON'S COMPLETE FINANCIAL ACCOUNTING PACKAGE 


GENERAL ledger is a powerful and 
comprehensive accounting tool. It is 
completely flexible in design, lending 
itself to a wide variety of applications. 

ACCOUNTS payable is a sophisticated 
online interactive subsystem designed 
to meet management's need for com¬ 
plete control over vendor payments, 
discounts and cash commitments. 

PURCHASE order ENTRY encompasses 
all the necessary functions, including 
encumbrance accounting to create, 
maintain, issue and properly track 
purchase orders. 

inventory control is designed to 
maintain the inventory data base and 
generate various management and 
control reports, reflecting product 
status, replenishment requirements, 
transfers and costing / pricing 
information. 

ACCOUNTS RECEIVABLE insures proper 
and timely collections of funds, lead¬ 
ing to improved and more responsible 
fiscal management. Detail customer 
information is readily available online 
and cash may be applied to customer 
accounts daily or as needed. 

BUDGET is designed to complement 
General Ledger processing. Budget 
transactions using a global transaction 
code have the capability of affecting 
a vast number of accounts. The global 
concept enables the user to create, 
maintain and modify budget data 
that would otherwise be difficult and 
time consuming. 


RENTAL, SALE OR TIMESHARING Of VACS system, 
available complete or by module, with or without VAX hardware. 


VAX is a registered trademark of the Digital Equipment Corporation. 

HAMILTON 

HGL Software Hamilton Rentals 

THE HOUSE OF VAX 

6 Pearl Court, Allendale, NJ 07401 

TOLL FREE 800-631-0298 
in New Jersey 201-327-1444 


415 Horner Ave, Toronto, M8W4W3 
TOLL FREE Ont. & Oue. 800-268-2106 
All other prov. 800-268-0317 
in Canada 416-251-1166 


NEW YORK • DALLAS • MONTREAL • CALGARY • LONDON • PARIS • DUSSELDORF 
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BASIC-PLUS-2 PROGRAMS 

By Kelvin Smith. Lawrence University (class of 1984), Appleton. Wl 


Lawrence University is in the proc¬ 
ess of putting all administrative func¬ 
tions onto RSTS. Programming is done 
almost entirely in BASIC-PLUS-2, to 
make use of RMS. We have recently 
replaced our venerable PDP 11 /45 
with an 11/70, which should, for a 
while at least, eliminate swapping 
(512K words memory instead of 
128K), but while that restraint on size 
has been taken care of, the magic 31K 
user job maximum when running 
under the RSX emulator remains fully 
in effect. Over the past few years, we 
have learned quite a bit about how 
space is used in BP2 programs. Par¬ 
ticularly when using the BP2C0M or 
disappearing RSX run-time systems, 
everything counts to the utmost. By 
getting maps from the task-builder, 
you can see just how much particular 
language elements are saving or 
costing, in terms of program size. 

Based on what we've found, here 
are some suggestions on how to put 
your programs on a reducing plan. 
Note: this article is based on the state 
of BASIC-PLUS-2 under language ver¬ 
sion 1.6. Version 2.0 is scheduled to 
come out soon, which may change 
some of the details given, although the 
general principles should remain the 
same. 

(1) Eliminate wasteful functions. 
By "functions" I mean not user-defined 
functions, although those too should 
be used with care (GO-SUBs operate 
faster and use less space), but standard 
features of the BP2 language. Many 
features of the language are normally 
unnecessary and are very costly in 
terms of size. Perhaps the best exam¬ 
ple is string arithmetic. This prehistoric 
monster calls in almost 1800 bytes 
worth of code, so making it disappear 
would save nearly 1K of memory (and 
the function operates so slowly that 
you'll probably speed up the program 
as well by avoiding it). Another func¬ 
tion is the SYS call package. Any SYS 
call brings in the entire package, some 
1600 bytes worth. It’s much better to 


use the functions CTRLC (CTRL/C 
trap). RCTRLO (reset CTRL/O). NOECHO 
and ECHO (disable and enable terminal 
echoing), FSS$ (file string scan), and 
ERT$ (error text), if those are all that 
you need, since they pull in only the 
code necessary for their operation. The 
set consisting of READ, INPUT, LIN- 
PUT. and INPUT LINE calls in 1002 
bytes of code, which might induce you 
to put your input statements all in one 
subprogram overlay (or you can use 
GET and MOVE to avoid it). All the 
other functions have size costs, too: it 
might be a good idea, for programs 
that are tight on space, to run a cross- 
reference including references to func¬ 
tions, to see if there are any which can 
be easily eliminated (using an in¬ 
termediate integer variable instead of 
the INT function, for example, saves 
almost 200 bytes). 

(2) Use RMS intelligently. The 
Record Management Services system is 
a fantastic help for operation of large 
data bases, but poor use of it can 
waste time and space for everyone on 
the system. One of the most basic 
guidelines is to use RMS only when you 
really need it: unless RMS transpor¬ 
tability is necessary, replace RMS se¬ 
quential and relative files with 
terminal-format and block I/O files 
(this applies even when indexed files 
are used). For the more adventurous, 
writing your own RMS overlay struc¬ 
ture is a possibility. This can save con¬ 
siderable space if you aren't using all 
the features of RMS and you don't have 
(or don't have enough program space 
to use) the RMSRES resident 
library—one overlay structure which I 
wrote, leaving in just the read code for 
indexed files, not only saved about 1K 
of memory, but also cut 70 blocks off 
the task file size. Note that you will 
have to change the ODL file for each 
program to call in your new RMS 
overlay descriptor file (DEC passes out 
a prototype, called RMS11.0DL, which 
allows you to go through step by step, 
picking out what tidbits of RMS you 


want). Note also that for unexplained 
reasons, you may get diagnostic 
“undefined segment" warning 
messages during your taskbuild. If you 
didn't get them during taskbuilds with 
the standard RMS overlay descriptor, 
ignore them: in my work, they have 
never produced run-time problems. 

(3) All of these pale into in¬ 
significance, for those not blessed with 
a floating point processor, in the light 
of the floating point routines (value: 
almost 2000 bytes of code). Getting rid 
of all floating point operations from a 
program is both easier and harder than 
it sounds: it seems easy until you find 
out how many functions call in the 
floating point routines, at which time 
you're likely to despair. Therefore. I'll 
divide this section into two parts, one 
listing functions which refer to floating 
point operations, and the second detail¬ 
ing how to get around them. 

(a) Of course, if you actually have a 
floating point variable in your pro¬ 
gram, either get rid of it or forget the 
whole thing — one variable, depending 
on your use of it. can be enough for the 
whole set of routines to be called in and 
placed in your task image by the task 
builder. However, many other opera¬ 
tions also call the set: FORMATS. 
NUM$ and NUM1$, ABS. and VAL are 
ones that you may not have known 
about. Also, the ERR and ERL variables 
should be compared with explicit in¬ 
tegers (i.e., "IF ERR = 28%," not "IF 
ERR = 28"). because the compiler isn't 
smart enough to realize that any com¬ 
parison on them would have to be with 
integers. (However, for other line- 
oriented operations—GOTO, GOSUB, 
RESUME — a percent sign is un¬ 
necessary, since it is compiled as referr¬ 
ing to a statement label.) 

(b) Fortunately, help is available. 
ABS and VAL are the easiest to deal 
with — it isn't documented anywhere 
except on the "reserved keywords list," 
but we have discovered that integer 
versions of the two functions exist 
under the names of ABS% and VAL%. 
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(Note: these exist only in BP2, not in 
BASIC-PLUS.) Using these will avoid 
floating point operations, saving you 
both space and time (on our machine 
without a floating point processor, 
each tested out as eight times faster 
than its floating point equivalent). 
Note: if VAL% is used on a string con¬ 
taining a floating point number, the 
"?lllegal number" error (ERR = 52%) is 
returned. NUM$ (and NUM1$, which 
calls in identical routines) is harder to 
avoid, but again there are possibilities: 
a straight PRINT of an integer variable 
doesn't call in floating point, and if 
NUM$ is the only thing keeping you 
from getting rid of floating point 
operations, it isn't hard to write a user- 
defined function to replace them (and 
you may even be able to write one 
which will operate faster than NUM$). 
FORMATS sometimes may be 
unavoidable, but at other times a 
direct print with PRINT USING will do 
the trick (PRINT USING does not call 
the floating point routines, except for 
the basic move operator when a 
floating point number is printed FOR¬ 
MATS uses everything—add, subtract, 
multiply, divide). Or. you could simply 
(or not-so-simply) recode the program 
to avoid formatted output completely, 
which would cut out about 1800 bytes. 
With both NUMS and FORMATS, you'll 
have to decide whether the space saved 
is worth the time spent in recoding 
your program, although you can pro¬ 
bably keep the user-defined function as 
a library function, for use in any pro¬ 
gram which needs it. Of course, the 
elements of the language are there to 
be used, and there will certainly be 
times where ease of coding will take 
precedence over size of the program. In 
addition, if you use the BASIC 2 run¬ 
time system, everything is already in¬ 
cluded. so there's no reason to go to 
the above-mentioned hassles (with the 
possible exception of ABS% and 
VAL%. which there is really no reason 
not to use). However, if you're trying to 
get the last few hundred bytes cut out 
to sneak a program under the 31K 
wire, these ideas. I think, can be 
helpful. 

1.1 want to thank Prof. James 
Evans. Gary Van Den Boom, and Tom 
Schmitz for their aid in the preliminary 
research for this article. 9 
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Send questions to: DEAR RSTS MAN. P.O. Box 
361. Fort Washington. PA 19034-0361. 


DEAR RSTS MAN: 

We are having a problem putting 
together a workable disaster 
recovery plan. We have a central 
data center in Columbus, Ohio that 
contains, among other things, one 
VAX 11/780, seven PDP 11/70’s 
with three RP06’s and one PDP 
11/04 HASP Box per 11/70, and ten 
PDP 11/34’s that are being used as 
communication nodes. Our central 
data center is linked to four remote 
centers around the country 
through our network of about 
25,000 miles of communication 
lines. All of the machines are now, 
or will soon be, at full capacity. 
This includes computers that are 
located at our remote sites. 

The problem that we are faced 
with is that of locating a cost ef¬ 
fective backup facility that could 
be used in the event that we get hit 
with the “BIG DISASTER.” Any 
suggestions? 

W. Chisholm, Manager, 
Systems Assurance 
Any suggestions? 

DEAR RSTS MAN: 

We here at ABS are quite proud 
of the fact that we use antique 
hardware (we have 4 PDP-11/40s) 
and software. We really get the 
mileage out of this stuff, but every 
so often we do find value in 
upgrading to newer technology. 

For this reason, I felt it was time 
to investigate DEC’S SORT-11 
package as a replacement for the 
“XQWIK” family. True, SORT-11 
does not run as fast as some com¬ 
mercially available products, but it 
sure beats “XQWIK, et al”, and it 
does have a rather complete 
record selection process. Bundled 
with the fact that it comes “free 
with the purchase of each RSTS” 
(our favorite feature), it appeared 


to be the logical step for us. 

I have managed to make our 
“Type 2” block I/O files look like 
RMS sequential fixed-length 
record files by writing proper at¬ 
tributes. I’ve even managed to 
make the sort and selection proc¬ 
ess work on ASCII (Key type “C”) 
fields. Here is my problem: 

Apparently, SORT-ll’s Binary 
(Key type “B”) fields are not 
equivalent to XQWIK’s Integer (Key 
type “I”) fields. Also, SORT-ll’s 
Floating-Point (Key type “F”) does 
not match XQWIK’s Floating-Point 
(Key type “F”) format. Worse than 
that, DEC provided no upward 
compatibility to SORT-11 for data 
stored in CVT%$ or CVTF$ format. 

I would like to know if there is 
any way to get SORT-11 to properly 
recognize data in CVT%$ and 
CVTF$ format? Are there undocu¬ 
mented key types? Has anybody 
devised a SORT-11 patch? Will 
DEC upgrade SORT-11 for these 
field types? 

I hope there is a cure for this that 
can be made directly to SORT-11, 
in that pre and post file processors 
will defeat the purpose of using 
SORT-11 in the first place. Thanx 
for your help, and for the help of all 
the RSTS pros who are reading! 

Bob Ashcraft 
Applied Business Services 
Dear Bob: I believe there was a 
DECUS library contribution that 
connected older file formats to 
SORT-11. 

P.S. We're busy setting up our 
fourth & fifth ‘40's. 

DEAR RSTS MAN: 

Here at our company several of 
us have entertained a heated de¬ 
bate as to the effects of 9600 baud 
terminals on a RSTS/E system. 
Several articles and authorities on 
optimizing RSTS/E performance 
have stated that terminals running 
at high baud rates can seriously 
degrade overall system perform¬ 
ance. The explanation given is that 
a terminal running at high speeds 
demands a very large share of total 
CPU time just to create the charac¬ 
ters and output them to the termi¬ 
nal and also that the associated 
job requires a greater number of 

. . . continued on page 70 


Page 36 


RSTS PROFESSIONAL. April 1983 



















SORT BENCHMARKS ON 


DEC 11 /34 WITH RSTS/E 


By Robert L. Besner, Dept, of National 

Introduction 

The benchmark of sorting algorithms was conducted to 
evaluate the performance of these sorts on a PDP 11 /34 us¬ 
ing the RSTS/E operating system. In the study, performance 
is defined as a minimum of computer facilities to produce a 
measured amount of throughput. 

Three types of benchmarks were: 

a. integers with BASIC-PLUS code. 

b. integers with BASIC-PLUS-2 code, 

c. string fields with BASIC-PLUS-2 code. 

Five algorithms used were: 

1. Bubble 

2. Shell 

3. Heap 

4. Quick 

5. Hart 

Note that all benchmark jobs were executed on a quiet 
system (single user, under Batch). 

Appendix A contains integer sort algorithms: Appendix 
B contains string data sort code. 

2. Algorithms coded in BASIC-PLUS sorting integers 

This section is a benchmark of all algorithms coded in 
BASIC-PLUS. The unsorted array contains integers varying 
from 0 to 99 randomly generated. 

2.1 Bubble sort 

RUN DM1:NBUBBL.BAC 

This is a benchmark of the BUBBLE sort 24-Dec-8l 02:31 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 142 KCT, 4.7 CPU SEC. AND 5 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 2652 KCT, 66.3 CPU SEC. AND 67 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 9632 KCT, 240.8 CPU SEC. AND 242 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

2.2 Shell sort 

RUN DM1:NSHELL.EAC 

This is a benchmark of the SHELL sort 24-Dec-8l 02:36 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED W KCT, 1.1 CPU SEC. AND 2 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 272 KCT, 6.8 CPU SEC. AND 7 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 696 KCT, 17.4 CPU SEC. AND 18 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 2430 KCT, 48.6 CPU SEC. AND 49 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 


Defense, Ottawa, Ontario, Canada 

e) NUMBER OF SORTED ITEMS r 2400 INTEGERS 

SORT USED 5718 KCT, 95-3 CPU SEC. AND 96 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 10367 KCT, 148.1 CPU SEC. AND 151 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 13587 KCT, 194.1 CPU SEC. AND 195 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 24424 KCT, 305.3 CPU SEC. AND 306 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

2.3 Heap sort 

RUN DM1:NHEAP.BAC 

This is a benchmark of the HEAP sort 24-Dec-8l 02:50 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 40 KCT, 1.3 CPU SEC. AND 2 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 260 KCT, 6.5 CPU SEC. AND 7 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 576 KCT, 14.4 CPU SEC. AND 15 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 1600 KCT, 32 CPI SEC. AND 32 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 3096 KCT, 51.6 CPU SEC. AND 53 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 4921 KCT, 70.3 CPU SEC. AND 71 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 6321 KCT, 90.3 CPU SEC. AND 91 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 8936 KCT, 111.8 CPU SEC. AND 112 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

2.4 Quick sort 

RUN DM1:NQUICK.BAC 

This is a benchmark of the QUICK sort 24-Dec-8l 02:57 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 28 KCT, .7 CPU SEC. AND 1 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 140 KCT, 3-5 CPU SEC. AND 4 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 320 KCT, 8 CPU SEC. AND 8 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 1015 KCT, 20.3 CPU SEC. AND 21 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 207C KCT, 34.5 CPU SEC. AND 35 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 
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f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 3451 KCT, 49-3 CPU SEC. AND 50 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 5720 KCT, 71.5 CPU SEC. AND 72 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 7136 KCT, 89.2 CPU SEC. AND 90 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

2.5 Hart sort 

RUN DM1rNHART.BAC 

This is a benchmark of the HART sort 24-Dec-8l 03:02 


b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 725 KCT, 14.5 CPU SEC. AND 15 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 2865 KCT, 57-3 CPU SEC. AND 61 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

3.2 Shell sort 

RUN DM1:NSHELL 

This is a benchmark of the SHELL sort 15-Dec-8l 03:26 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 8 KCT, .2 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 


a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 28 KCT, .7 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 185 KCT, 3-7 CPU SEC. AND 4 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 410 KCT, 8.2 CPU SEC. AND 9 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 1239 KCT, 17-7 CPU SEC. AND 18 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 2296 KCT, 28.7 CPU SEC. AND 29 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 3820 KCT, 38,2 CPU SEC. AND 39 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 10 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 5736 KCT, 47.8 CPU SEC. AND 48 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 12 K OF MAIN MEMORY 


8 ) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 65 KCT, 1.3 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 145 KCT, 2.9 CPU SEC. AND 3 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 510 KCT, 8.5 CPU SEC. AND 9 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 936 KCT, 15.6 CPU SEC. AND 16 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 1715 KCT, 24.5 CPU SEC. AND 25 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 2608 KCT, 32.6 CPU SEC. AND 34 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 5058 KCT, 56.2 CPU SEC. AND 61 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 9 K OF MAIN MEMORY 


h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 7982 KCT, 61.4 CPU SEC. AND 62 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 13 K OF MAIN MEMORY 

2.6 Comparison of algorithms 



Bubble 

Shell 

Heap 

Quick 

Hart 

number of 
statements 

8 

15 

31 

44 

76 

100 numbers 

5 sec. 

(4k) 

2 sec. 

(4k) 

2 sec. 

(4k) 

1 sec. 

(4k) 

1 sec. 
(4k) 

400 numbers 

67 sec. 
(4k) 

7 sec. 

(4k) 

7 sec. 

(4k) 

4 sec. 

(4k) 

4 sec. 
(5k) 

800 numbers 

242 sec. 
(4k) 

18 sec. 
(4k) 

15 sec. 
(4k) 

8 sec. 

(4k) 

9 sec. 
(5k) 

1600 numbers 

- 

49 sec. 
(5k) 

32 sec. 
(5k) 

21 sec. 

(5k) 

18 sec. 
(7k) 

2400 numbers 

- 

96 sec. 
(6k) 

53 sec. 
(6k) 

35 sec. 

(6k) 

29 sec. 
(8k) 

3200 numbers 

- 

151 sec. 
(7k) 

71 sec. 
(7k) 

50 sec. 

(7k) 

39 sec. 
(10k) 

4000 numbers 

- 

195 sec. 
(7k) 

91 sec. 
(7k) 

72 sec. 

(8k) 

48 sec. 
(12k) 

4800 numbers 

- 

306 sec. 
(8k) 

112 sec. 
(8k) 

90 sec. 

(8k) 

62 sec. 
(13k) 

3. Algorithms coded in BASIC-PLUS-2 sorting integers 

This section is a benchmark of all algorithms coded in 


BASIC-PLUS-2. The unsorted array contains integers varying 
from 0 to 99 randomly generated. 


3.3 Heap sort 

RUN DM1:NHEAP 

This is a benchmark of the HEAP sort 15-Dec-8l 03:28 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 12 KCT, .3 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 70 KCT, 1.4 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 160 KCT, 3-2 CPU SEC. AND 4 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 402 KCT, 6.7 CPU SEC. AND 7 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 728 KCT, 10.4 CPU SEC. AND 11 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 1085 KCT, 15-5 CPU SEC. AND 17 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 1464 KCT, 18.3 CPU SEC. AND 20 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 2088 KCT, 23.2 CPU SEC. AND 24 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 9 K OF MAIN MEMORY 

3.4 Quick sort 


3.1 Bubble sort 


RUN DM1rNQUICK 

This is a benchmark of the QUICK sort 15-Dec-8l 03:30 


RUN DM1.-NBUBBL 

This is a benchmark of the BUBBLE sort 15-Dec-8l 03:24 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 44 KCT, 1.1 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 4 K OF MAIN MEMORY 


a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 5 KCT, .1 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED 35 KCT, .7 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 
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c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 85 KCT, 1.7 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 258 KCT, 4.3 CPU SEC. AND 5 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 483 KCT,. 6.9 CPU SEC. AND 7 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 INTEGERS 

SORT USED 707 KCT, 10.1 CPU SEC. AND 11 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 1072 KCT, 13-4 CPU SEC. AND 14 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 1422 KCT, 15.8 CPU SEC. AND 16 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 9 K OF MAIN MEMORY 

3.5 Hart sort 

RUN DM1:NHART 

This is a benchmark of the HART sort 15-Dec-8l 03:31 

a) NUMBER OF SORTED ITEMS = 100 INTEGERS 

SORT USED 5 KCT, .1 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 INTEGERS 

SORT USED HO KCT, .8 CPU SEC. AND 1 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 INTEGERS 

SORT USED 102 KCT, 1.7 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 INTEGERS 

SORT USED 280 KCT, 3-5 CPU SEC. AND 4 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 8 K OF MAIN MEMORY 


ticks) is the memory usage factor per tenth of CPU seconds. 
One KCT is equal to the usage of 1K of memory for one 
tenth of a second. For example, a job that requires 10.5 CPU 
seconds and 15K of memory is using 1575 KCTs. 

TABLE 1 


SECONDS PDP 11/34 RSTS/E SORT STUDY 



e) NUMBER OF SORTED ITEMS = 2400 INTEGERS 

SORT USED 531 KCT, 5.9 CPU SEC. AND 6 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 9 K OF MAIN MEMORY 

f) NUMBER OF SORTED .ITEMS = 3200 INTEGERS 

SORT USED 825 KCT, 7.5 CPU SEC. AND 8 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 11 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 INTEGERS 

SORT USED 1092 KCT, 9.1 CPU SEC. AND 10 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 12 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 INTEGERS 

SORT USED 1792 KCT, 12.8 CPU SEC. AND 13 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 14 K OF MAIN MEMORY 


3.6 Comparison of algorithms 



Bubble 

Shell 

heap 

Quick 

Hart 

number of 
statements 

8 

15 

31 

44 

76 

100 numbers 

2 sec. 

(4k) 

1 sec. 

(4k) 

1 sec. 

(4k) 

1 sec. 

(5k) 

1 sec. 
(5k) 

400 numbers 

15 sec. 
(5k) 

2 sec. 

(5k) 

2 sec. 

(5k) 

1 sec. 

(5k) 

1 sec. 
(5k) 

800 numbers 

61 sec. 
(5k) 

3 sec. 

(5k) 

4 sec. 

(5k) 

2 sec. 

(5k) 

2 sec. 
(6k) 

1600 numbers 

- 

9 sec. 

(6k) 

7 sec. 

(6k) 

5 sec. 

(6k) 

4 sec. 
(8k) 

2400 numbers 

- 

16 sec. 
(6k) 

11 sec. 
(7k) 

7 sec. 

(7k) 

6 sec. 
(8k) 

3200 numbers 

- 

25 sec. 
(7k) 

17 sec. 
(7k) 

11 sec. 

(7k) 

8 sec. 
(11k) 

4000 numbers 

- 

34 sec. 
(8k) 

20 sec. 
(8k) 

14 sec. 

(8k) 

10 sec. 
(12k) 

4800 numbers 

- 

61 sec. 
(9k) 

24 sec. 
(9k) 

16 sec. 
(9k) 

13 sec. 

(14k) 


Table 1 shows the elapsed time in seconds required by 


TABLE 2 

KCT 



each algorithm to sort “X” number of integers. 4. Algorithms coded in BASIC-PLUS-2 sorting string fields 

Table 2 shows the amount of KCTs required by each This section is a benchmark of all algorithms coded in 

algorithm to sort “X” number of integers. KCT (Kilo-core- BASIC-PLUS-2. Each string field contains three characters 
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and each character contains a letter varying from A' to J' 
randomly generated. 

No benchmark for the Hart algorithm is included in this 
section. The complexity of the algorithm and the large 
amount of memory space it requires make this algorithm 
not suited to sort string fields. 

4.1 Bubble sort 

HUN DM1:SBUBBL 

This is a benchmark of the BUBBLE sort 23-Dec-8l 02:31 

a) NUMBER OF SORTED ITEMS = 100 STRING FIELDS (3 CHAR) 

SORT USED 210 KCT, 4.2 CPU SEC. AND 5 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 STRING FIELDS (3 CHAR) 

SORT USED 4236 KCT, 70.6 CPU SEC. AND 71 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 STRING FIELDS (3 CHAR) 

SORT USED 18865 KCT, 269-5 CPU SEC. AND 271 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

4.2 Shell sort 

RUN DM1rSSHELL 


This is a benchmark of the SHELL sort 23-Dec-8l 02:37 

a) NUMBER OF SORTED ITEMS = 100 STRING FIELDS (3 CHAR) 

SORT USED 40 KCT, .8 CPU SEC. AND 1 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS z 400 STRING FIELDS (3 CHAR) 

SORT USED 306 KCT, 5.1 CPU SEC. AND 6 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 STRING FIELDS (3 CHAR) 

SORT USED 875 KCT, 12.5 CPU SEC. AND 13 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 STRING FIELDS (3 CHAR) 

SORT USED 3190 KCT, 31-9 CPU SEC. AND 32 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 10 K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS = 2400 STRING FIELDS (3 CHAR) 

SORT USED 5868 KCT, 49 CPU SEC. AND 50 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED*IN 12 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS z 3200 STRING FIELDS (3 CHAR) 

SORT USED 12420 KCT, 82.8 CPU SEC. AND 83 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 15 K OF MAIN MEMORY 

g) NUMBER OF SORTED ITEMS = 4000 STRING FIELDS (3 CHAR) 

SORT USED 15930 KCT, 88.5 CPU SEC. AND 89 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 18 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 STRING FIELDS (3 CHAR) 

SORT USED 25368 KCT, 120.8 CPU SEC. AND 121 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 21 K OF MAIN MEMORY 

4.3 Heap sort 

RUN DM1:SHEAP 


This is a benchmark of the HEAP sort 23-Dec-8l 02:44 

a) NUMBER OF SORTED ITEMS = 100 STRING FIELDS (3 CHAR) 

SORT USED 55 KCT, 1.1 CPU SEC. AND 2 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS = 400 STRING FIELDS (3 CHAR) 

SORT USED 348 KCT, 5.8 CPU SEC. AND 6 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 

c) NUMBER OF SORTED ITEMS = 800 STRING FIELDS (3 CHAR) 

SORT USED 1050 KCT, 15 CPU SEC. AND 15 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 STRING FIELDS (3 CHAR) 

SORT USED 2950 KCT, 29-5 CPU SEC. AND 30 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 1C K OF MAIN MEMORY 

e) NUMBER OF SORTED ITEMS z 2400 STRING FIELDS (3 CHAR) 

SORT USED 6133 KCT, 51.1 CPU SEC. AND 52 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 13 K OF MAIN MEMORY 

f) NUMBER OF SORTED ITEMS = 3200 STRING FIELDS (3 CHAR) 

SORT USED 9735 KCT, 64.9 CPU SEC. AND 65 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 15 K OF MAIN MEMORY 


g) NUMBER OF SORTED ITEMS = 4000 STRING FIELDS (3 CHAR) 

SORT USED 16542 KCT, 91-9 CPU SEC. AND 93 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 18 K OF MAIN MEMORY 

h) NUMBER OF SORTED ITEMS = 4800 STRING FIELDS (3 CHAR) 

SORT USED 23604 KCT, 112.4 CPU SEC. AND 113 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 21 K OF MAIN MEMORY 

4.4 Quick sort 

RUN DM1:SQUICK 


This is a benchmark of the QUICK sort 23-Dec-8l 02:50 


a) NUMBER OF SORTED ITEMS = 100 STRING FIELDS (3 CHAR) 

SORT USED 20 KCT, .4 CPU SEC. AND 1 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 5 K OF MAIN MEMORY 

b) NUMBER OF SORTED ITEMS z 400 STRING FIELDS (3 CHAR) 

SORT USED 144 KCT, 2.4 CPU SEC. AND 3 SEC. (ELAPSED TIME) 

PROGRAM EXECUTED IN 6 K OF MAIN MEMORY 


c) NUMBER OF SORTED ITEMS z 800 STRING FIELDS (3 CHAR) 

SORT USED 343 KCT, 4.9 CPU SEC. AND 5 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 7 K OF MAIN MEMORY 

d) NUMBER OF SORTED ITEMS = 1600 STRING FIELDS (3 CHAR) 

SORT USED 1110 KCT, 11.1 CPU SEC. AND 12 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 10 K OF MAIN MEMORY 


e) NUMBER OF SORTED ITEMS z 2400 STRING FIELDS (3 CHAR) 

SORT USED 2418 KCT, 18.6 CPU SEC. AND 19 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 13 K OF MAIN MEMORY 


f) NUMBER OF SORTED ITEMS = 3200 STRING FIELDS (3 CHAR) 

SORT USED 3570 KCT, 23.8 CPU SEC. AND 25 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 15 K OF MAIN MEMORY 


g) NUMBER OF SORTED ITEMS z 4000 STRING FIELDS (3 CHAR) 

SORT USED 5724 KCT, 31.8 CPU SEC. AND 32 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IK 16 K OF MAIN MEMORY 


h) NUMBER OF SORTED ITEMS = 4800 STRING FIELDS (3 CHAR) 

SORT USED 8127 KCT, 38.7 CPU SEC. AND 39 SEC. (ELAPSED TIME) 
PROGRAM EXECUTED IN 21 K OF MAIN MEMORY 



RSTS PROFESSIONAL. April 1983 


CIRCLE 4 ON READER CARD 


Page 41 





For DEC* Computers, 
100% Compatible. 

For DEC Owners and Users, 
100% Essential. 


Thousands of New Products. 

100% DEC-Compatible. 

All the latest hardware, 
software, services and sup¬ 
plies designed to run on your 
DEC computer. All the DEC- 
compatibles you've read 
about, heard about, but have 
never seen demonstrated. 
Plus, thousands more. Newer 
and better than anything on 
the market today. More DEC- 
compatibles than at any other 
show in the world! 


*DEC and DECUS are registered 
trademarks of Digital Equipment 
Corporation. 


Over 250 Vendors. 

100% DEC-Friendly. 

Meet the vendors who can 
help your DEC system reach a 
new standard of perform¬ 
ance. Because you never have 
to ask, "Is it DEC-Compati¬ 
ble?" you get fast answers to 
the really important ques¬ 
tions. It's the one Show for 
everyone who owns, man¬ 
ages, or uses a DEC com¬ 
puter. So bring 
the entire deci¬ 
sion - making 
team: top man¬ 
agement, finan¬ 
cial manage¬ 
ment, DP man¬ 
agement and 
senior staff. 


Especially for DECUS* 
Conference Registrants. 

100% Free. 

It's easy to attend DEXPO 
East 83. And hard to miss. 
Especially for DECUS mem¬ 
bers attending the St. Louis 
conference. Free shuttle 
buses will take you from the 
Show to the conference in just 
five minutes. And conference 
attendees will be able to use 
their DECUS 
badges to enter 
the Show with¬ 
out paying a 
registration fee. 


Group Registration 
Discounts Available 

Bring Your 
Boss for FREE! 

Use Registration 
Form 



DEXPO™ 
East 83 

The Third National 
DEC-Compatible Industry Exposition 

Kiel Auditorium, St. Louis 
Sunday-Tuesday • May 22-24,1983 
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DEXPO East 83 Registration Form 

Kiel Auditorium, St. Louis 
Sunday-Tuesday, May 22-24,1983 


CHECK REGISTRATION PLAN (For Additional 
Registrations Duplicate Form on a Copying Machine): 
I. Advance Registration saves you time and money. 
Because you get your credentials in the mail, there's 
no waiting in long registration lines. 

□ Half-Price Advance Registration. Complete form 
and mail with payment ($5.00) before April 25, 
1983. 

□ Free Admission to DECUS Conference 
Registrants. Complete form and mail before May 
2, 1983. No payment required. 

Send to: Expoconsul International Inc., 55 Princeton- 
Hightstown Rd., Princeton junction, NJ 
08550 


II. To Register at the Show, bring completed form 

with you. 

□ Free Admission to DECUS Conference 
Registrants. Present completed form and 
DECUS badge. No payment required. 

□ "Bring Your Boss for Free" Team Registration 
Discount. Present completed forms and 
business cards. Registration fee is $5.00 for each 
visitor—in groups of two only. 

□ Regular Registration. Present completed form 
and payment ($10.00). 

For information, call or write: 

Expoconsul International, Inc. 

55 Princeton-Hightstown Rd. 

Princeton Junction, NJ 08550 

TEL: 609-799-1661 


Please Type • Use Capital Letters Only 

Nam. □□□□□□□□□□□□□□□□□□□□□□ 

Title □□□□□□□□□□□□□□□□□□□□□□ 

Company □□□□□□□□□□□□□□□□□□□□□□ 

Address □□□□□□□□□□□□□□□□□□□□□□□□□ 
City □□□□□□□□□□□□□□□□□□ 


State □□ Zip ID CD EH O EH Telephone (DDD) DDD-DDDD 

NO ONE UNDER AGE OF 18 WILL BE ADMITTED 


1. Title/Function 

Check One: 

A □ Owner/Pres./CEO/Gen. Mgr. 

B □ Vice President 
C □ Controller/Treas./CFO 
D □ Financial/Acct. Mgmt. 

E □ Marketing Mgmt. 

F □ Administrative Mgmt. 

G □ MIS Director/DP Mgr./WP Mgr. 
H □ DP Mgmt. (Supervisory) 

I □ DP Staff 

J □ Engineering/Mfg. Mgmt. 

K □ Consultant 

L □ Other_ 

(specify) 

2. Business or Industry 

Check One: 

A □ Banking/Financial 
B □ Manufacturing 
C □ Retailing/Distribution 
D □ Professional Services 
E □ Government 
F □ OEM/Computer Consultant 
G □ Education 
H □ Health Care Institutions 

I □ Other_ 

(specify) 


3. Computer Applications 
Check All That Apply: 

A □ Accounting/Office 
B □ Banking/Financial 
C □ Research/Scientific 
D □ Industrial/Engineering 
E □ Resale 

F □ Other_ 

(specify) 

4. Type of Computer Used 
Check All That Apply: 

A □ *PDP 8 Family 
B □ *Q Bus (11/03, 11/23, 11/33) 

C □ *Unibus (11/24, 11/44, 11/70, 11/34, 11/40) 
D □ *Vax 
E □ *10 or 20 

F □ Non-DEC*_ 

(specify) 


□ I am a DECUS conference attendee. 


5. Operating System 
Check All That Apply: 

A □ *OS/8 

B □ *RT 11 
C □ *RSX, MAS 
D □ *RSTS 
E □ *VMS 
F □ *Tops 10, 20 
G □ ** Unix 

H □ Other_ 

(specify) 

6. Language Used 
Check All That Apply: 

A □ Fortran(s) 

B □ Basic(s) 

C □ PL/1 
D □ Cobol 
E □ Pascal 
F □ DIBOL/DBL 

G □ Other_ 

(specify) 


*Registered trademarks of Digital Equipment 
Corporation. 

‘Registered trademark of Bell Labs. 


A B C D 


I 










4.5 Comparison of algorithms 



Bubble 

Shell 

Heap 

Quick 

number of 

statements 

8 

15 

31 

44 

100 string fields 

5 sec. 

2 sec. 

2 sec. 

1 sec. 

(5k) 

(5k) 

(5k) 

(5k) 

400 string fields 

71 sec. 

6 sec. 

6 sec. 

3 sec. 

(7k) 

(7k) 

(7k) 

(7k) 

800 string fields 

271 sec. 

13 sec. 

15 sec. 

5 sec. 

(7k) 

(7k) 

(7k) 

(7k) 

1600 string fields 

- 

32 sec. 

(10k) 

30 sec. 

(10k) 

12 sec. 
(10k) 

2400 string fields 

- 

50 sec. 

(12k) 

52 sec. 

(13k) 

19 sec. 
(13k) 

3200 string fields 

- 

83 sec. 

(15k) 

65 sec. 

(15k) 

25 sec. 
(15k) 

4000 string fields 

- 

89 sec. 

(18k) 

93 sec. 

(18k) 

32 sec. 
(18k) 

4800 string fields 

- 

121 sec. 
(21k) 

113 sec. 
(21k) 

39 sec. 
(21k) 


Table 3 shows the elapsed time in seconds required by 
each algorithm to sort "X" number of string fields. 

TABLE 3 



5.1 Numeric sorts 

To sort large arrays (over 1500 records) the Hart 
algorithm is the fastest and if the response time is a very 
important criteria for the success of your application then it 
can be useful. But the Quick algorithm is the most efficient 
in all situations. For sorts varying from 800 to 4800 
numbers. Quick requires only from 1 to 4 additional seconds 
on a quiet system and uses from 1 k to 5K less memory. 

On the other hand, if the size of your program is 
reaching its limit and if you can not afford the Quick sort 
then the Shell algorithm might be the solution to your prob¬ 
lem. It is reasonably fast when used to sort small arrays and 


is only 15 statements long. 

The Bubble sort should never be used. 

5.2 String field sorts 

It is very obvious that the Quick algorithm is by far the 
best one. The trade off between the length of the algorithm 
(Quick: 44 statements. Heap: 33 statements, Shell: 15 
statements) is outclassed by the response time gain. Com¬ 
pared to the Heap algorithm, the Quick requires from 3 to 
74 seconds less to sort from 400 to 4800 string fields on a 
quiet system. 

Again the Bubble sort should never be used. 

5.3 Programming languages 

BASIC-PLUS-2 sorts identical to BASIC-PLUS 
demonstrated at least four times the speed. This must be at¬ 
tributed to the system time used in converting the BASIC- 
PLUS interpretive language to executable code. This observa¬ 
tion concerns numeric array sorts only. No benchmarks were 
done on string fields sorts coded in BASIC-PLUS because of 
the large amount of memory space usually required by string 
fields sorts. BASIC-PLUS program can only grow to a max¬ 
imum of 16K in comparison to 24K in BASIC-PLUS-2. 

5.4 Miscellaneous observations 

This study also demonstrated that it is 4 to 6 times 
faster to sort string field arrays loaded in a channel memory 
buffer than identical arrays loaded in any other memory 
portion of a program. The following examples show how it's 
done. 

a) loading an array using the channel memory buffer. 

10 SORT.ITEM?=ICO & 

\ REC.LEN?=3? 

20 DIM A.RRAY$(100$) 

30 OPEN "FILE.SRT" FOR INPUT AS FILE 1$, & 

RECORDSIZF SORT.ITEM?*REC.LEN? & 

\ GET #1$ & 

\ FOR I?=1? TO SORT.ITEM? & 

\ FIELD #1$, (I?-1?)*REC.LEN? AS A. RRAY$(0 ?), & 

REC.LEM? AS A.RRAY$(I?) & 

\ NEXT I? & 

b) loading an array in any other memory portion of a 
program. 

10 SORT.ITEM?=100? & 

\ REC.LEM?=3? 

20 DIM A.RRAY$(100?) 

30 * FOR I?=1? TO SORT.ITEM? & 

\ FOR J?=1? TO REC.LEN? & 

\ A.RRAY$(I?)=A.RRAY$(I?)+STRING$(1?,INT(10?*RND)+65?) & 

\ NEXT J? & 

\ NEXT I? & 

Sorting process is probably faster because while the 
complete string array elements are being physically and 
repeatedly moved around in memory for arrays loaded as 
example (b) only the address pointers of string array 
elements are changed in arrays loaded as example (a). 

APPENDIX A 

Algorithm 1 - Bubble Sort 


1000 !»»»*IHH«»«i*»»»«H»»»»»»»H»»HIIII»»t»m»*HI»H*»»HIHH»m4 

!•*# •••& 
!••• INITIALISATION ***& 

!••• 


SORT.ITEM?=100? & 
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1010 DIM A.PRAY*(100% > & 


17000 !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••& 

!••• •••4 
!••• BUBBLE SORT •••& 
(••• »••& 
..... 


FOR I. NDF.X1S = IX TO SORT.ITEM*-IS & 

17010 FOR I. NDEX?S=I. NDEX 1*«-1* TO SORT.ITEM* A 

17020 IF A.RRAY*(I.NDEX1*)>A.RRAY*(I.NDEX2S) & 

THEN W.ORK1*=A.RRAY*(I.NDEX1*) A 

\ A.RRAY*( I.NDEX1*)=A.RRAY*(I.NDEX?*) & 
\ A.RRAY*(I.NDEX2*)rW.ORKIS & 

17030 NEXT I.NDEX?* & 

170H0 NEXT I.NDEX1* & 


The most obvious algorithm is the Bubble Sort: for each item we replace is the 
least value in the remaining items, interchanging so the least value 
"bubbles up" to the front. 


Algorithm 2 - Shell Sort 


1000 I 

!••• •••A 

!••• INITIALISATION •••A 

I•*« _ «*«4 


SORY.ITEM*:100* & 
1010 DIM A.RRAYS(100%) A 


17000 I....•••••••••*4 

|«ll §••& 

1••• SHELL SORT •••A 

|i*« •••& 

...... 


CENTER.OF.ARRAYS=SORT.ITEMS A 

17010 CENTER.OF.ARRAYS=INT(CENTER. OF.ARRAYS/2) A 
\ CENTER.ELEMENTSCENTER.OF.ARRAYS A 

17020 CENTER.ELEMENT*:CENTER.ELEMENT** It A 

\ CONTENT.OF.CENTER.ELEMENT*=A.RRAYS(CENTER.ELEMENTS) A 
\ WORK. CENTER. ELEMENTS CENTER. ELEMENTS A 

17030 KEEP.CENTER.ELEMENT*=WORK.CENTER.ELEMENT* A 

\ WORK.CENTER.ELEMENT*:WORK.CENTER.ELEMENTS-CENTER.OF.ARRAY* A 
\ GO TO 170U0 IF WORK. CENTER. ELEMENTS 1* A 
\ GO TO 17OHO IF CONTENT.OF.CENTER.ELEMENTS > A 
A.RRAYS(WORK.CENTER.ELEMENT*) A 

\ A.RRAYS(KEEP.CENTER.ELEMENT*)=A.RRAY*(WORK.CENTER.ELEMENT*) A 
\ GO TO 17030 A 

170H0 A.RRAY*(KEEP.CENTER.ELEMENTS)=CONTENT.OF.CENTER.ELEMENT* A 
\ GO TO 17020 IF CENTER.ELEMENTS < SORT.ITEMS A 
\ GO TO 17010 IF CENTER.OF.ARRAYS > IS A 


A slight increase ir. program length brings a radical improvement ir. execution 
speed. The Shell Sort works like a Bubble Sort except that the comparison 
intervals decrease by powers of 2, so that initial exchanges tend to move items 
farther, much quicker than in the Bubble Sort. 


Algorithm 3 - Heap Sort 


1000 .....••••••••••A 

!•*• •••A 

!••• INITIALISATION •••A 

!••• •••A 

SORT.ITEMS=100S A 

1010 DIM SORT.ARRAYS(100S) A 

17000 ••••••••••••••••••••••A 

!••• 1*14 

!••• HEAP SORT ”*A 

!••• •••A 

!••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••& 


CENTER.ELEMENTS=(SORT.ITEMS/2S) *1S A 
\ TO.S0RTS=S0RT.ITEMS A 

17010 GO TO 17100 IF TO.SORTS < 2* A 
\ IF CENTER.ELEMENTS > IS A 
THEN CENTER.ELEMENTS = CENTER.ELEMENTS - IS A 

\ CONTENT.WORK.ELEMENTS = SORT.ARRAYS(CENTER.ELEMENTS) A 
\ GO TO 17030 A 

17020 CONTENT.WORK.ELEMENTS = SORT.ARRAYS(TO.SORTS) A 
\ SORT.ARRAYS(TO.SORTS) = SORT.ARRAY*(IS) A 
\ TO.SORTS = TO.SORTS - IS A 
\ IF TO.SORTS = IS A 

THEN SORT.ARRAYS(IS) = CONTENT.WORK.ELEMENTS A 
\ GO TO 17090 A 

17030 SORTED.ELEMENTS = CENTER.ELEMENTS A 

170H0 WORK.ELEMENTS = SORTED.ELEMENTS A 

\ SORTED.ELEMENTS = 2* • SORTED.ELEMENTS A 
\ if SORTED.ELEMENTS > TO.SORTS A 
THEN GO TO 17080 A 

ELSE IF SORTED.ELEMENTS = TO.SORTS A 
THEN GO TO 17060 A 


Dreaming of 

Electronic Mail 

Product Name: Dreams Version 5.0 

Since its first sale in 1979 Dreams has grown in capability 
and user acceptance. It is now in use on over 40 RSTS/E 
systems around the country. 

Special Features: 

• DECnet compatibility—message transmission to distant 
nodes. Includes message queuing to unavailable nodes. 

• Invoke your favorite style of editing (EDT, DECword, 
WORD-11, TECO, etc.) with a smooth transition*to and 
from the editor. 

• Flexible method for accessing and maintaining multiple 
mail files. 

• Subjects for mail files as well as individual messages. 

• Retract unread messages. 

• Recover your last deleted message. 

• Specify times as well as dates in relative or absolute 
form to control message appearance or expiration or to 
narrow selection criteria. 

• Full compatibility with Batch. This opens up a world of 
possibilities for keeping abreast of unattended opera¬ 
tions and for implementation of a repetitive reminder 
system based on day of the week or other longer inter¬ 
vals. 

• System manager may assign defaults for accounts, proj¬ 
ects, and the entire system including the assignment of 
certain privileges. 

The Dreams package consists of over 40,000 lines of 
source code in more than 70 modules plus significant 
documentation both as documents and as on-line help. 
CSPCOM or BASIC-Plus-2 builds these sources into only 
5 Dreams tasks: TELL, MAIL, WHO, SMASH, and MAN¬ 
AGE (plus POSTMN for the DECnet version). Computers 
with sufficient memory may use the customized resident 
library and resident run-time system. 

A VAX version will be available later. 

Typical Electronic Mail Features are also included in 

Dreams: 

• Send to names, nicknames, or groups. 

• Scan, reply, forward, or store for later appearance. 

• New, old, priority, or suppressed messages for each 
mail file. 

• Automatic routing of messages. 

• Many other convenient features. 

Ordering information: 

Available on 9 track 800 or 1600 BPI tape. Multiple CPU 
discount schedule: 


First License 
Dreams/5 
DECnet modules 
Second and Third License 
Fourth and Fifth License 
Sixth and up 
Educational Institutions 


$3000.00 
$3000.00 
40% Discount 
50% Discount 
70% Discount 
Additional 50% 
off the total 


Maintenance and new releases: Annual fee of 12% of cur¬ 
rent list price after the first year. 


For more information contact: 

Tom Burtnett 
DCXX Software Services 
Dickinson College 
Computer Center 
Carlisle, PA 17013 
717-245-1513 


RSTS/E, VAX, DECnet, and DECword are trademarks of Digital Equip¬ 
ment Corporation. 

WORD-11 is a trademark of Data Processing Design, Inc. 
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17050 IF SORT.ARRAY*(SORTED.ELEMENTS) < SORT.ARRAY*(SORTED. ELEMENT* - IS) & 
THEN SORTED.ELEMENT* = SORTED.ELEMENT* ♦ 1* 4 

17060 IF CONTENT.WORK.ELEMENT* < SORT.ARRAY*(SORTED.ELEMENT*) 4 
THEN GO TO 17070 4 
ELSE GO TO 17080 4 

17070 W.0RK1*=S0RT.ARRAY*(S0RTED.ELEMENT*) 4 

\ SORT.ARRAY*( SORTED.ELEMENT*) = SORT.ARRAY*(WORK.ELEMENT*) 4 
\ SORT.ARRAY*( WORK.ELEMENT*) = W.ORK1* 4 
\ GO TO 170U0 4 

17080 SORT.ARRAY*(WORK.ELEMENT*) = CONTENT.WORK.ELEMENT* 4 
17090 GO TO 17010 4 

17100 I ••• END OF SORT •••4 
Algorithm 4 - Quick Sort 


1C00 I f III••••••••••••••••••••!•••••••!•••••••••*I••••••••••••••••••*•••& 

| ••• »**4 

!••• INITIALISATION ,# *4 

!••• *«»4 

..... 

SORT.ITEM*=100* 4 


1010 DIM SORT.ARRAY1*(100*) 4 

I 4 

! NUMBER OF ELEMENTS IN SORT.ARRAY2* EQUALS 2iL0G2( NUMBER OF RECORDS) 4 


\ DIM SORT.ARRAY2*(10*) 4 

17000 !••••••••••••••••••••••••••••••••••••••••••••••••••••*•••••••••••••4 

!•«• •••4 

!*•• QUICK SORT iii4 

!••• IH4 

(HHiiiimiiiiHHimmiiiiiimHiHiiiHimiifHHiiiiiiiiiii 

ARRAY2.INDEX*=0* 4 
\ FIRST.ELEMENT*:1* 4 
\ LAST.ELEMENT*=SORT.ITEM* 4 


17010 GO TO 17080 IF LAST. ELEMENT*<FIRST. ELEMENT*-*-1* 4 

\ GO TO 17020 IF LAST. ELEMENT*>FIRST. ELEMENT*-^* 4 

\ GO TO 17080 IF SORT.ARRAY1*(FIRST.ELEMENT*) < = 4 

SORT.ARRAY1*(LAST.ELEMENT*) 4 
\ W.ORK1*=SORT.ARRAY1*(FIRST.ELEMENT*) 4 

\ SORT.ARRAY1*(FIRST.ELEMENT*)=SORT.ARRAY1*(LAST.ELEMENT*) 4 
\ SORT.ARRAY1*( LAST.ELEMENT*)=W.ORK1* 4 
\ GO TO 17080 4 

17020 CENTER.ELEMENT*=INT((FIRST.ELEMENTX+LAST.ELEMENT*)/2) 4 

\ CONTENT.OF.CENTER.ELEMENT*=SORT.ARRAY1*(CENTER.ELEMENT*) 4 
\ SORT.ARRAY1*(CENTER.ELEMENT*)=SORT.ARRAY1*(FIRST.ELEMENT*) 4 
\ HIGH.ELEMENT*=LAST.ELEMENT* 4 
\ LOW.ELEMENT*=FIRST.ELEMENT* 4 

17030 LOW.ELEMENT*=LOW.F3.FMFNTX+1* 4 

\ GO TO 17060 IF LOW.ELEMENT*>HIGH.ELEMENT* 4 
\ GO TO 17030 IF SORT.ARRAY1*(LOW.ELEMENT*) <= 4 
CONTENT.OF.CENTER.ELEMENT* 4 

» 

170H0 GO TO 17060 IF HIGH.ELEMENT*<LOW.ELEMENT* 4 

\ GO TO 17050 IF SORT.ARRAY1*(HIGH.ELEMENT*) < 4 
CONTENT.OF.CENTER.ELEMENT* 4 
\ HIGH.ELEMENT*=HIGH.ELEMENTX-1* 4 
\ GO TO 170^40 4 

17050 W.0RK1*=S0RT.ARRAY1*(LOW.ELEMENT*) 4 

\ SORT.ARRAY1*(LOW.ELEMENT*)=JORT.ARRAY1*(HIGH.ELEMENT*) 4 

\ SORT.ARRAY 1*(HIGH.ELEMENT*)=W.ORK1* 4 
\ HIGH.ELEMENT*:HIGH.ELEMENTX-1* 4 

\ GO TO 17030 4 

17060 SORT.ARRAY1*(FIRST.ELEMENT*)=S0RT.ARRAY1*(HIGH.ELEMENT*) 4 

\ SORT.ARRAY1X(HIGH.ELEMENT*)=CONTEHT.OF.CENTER. ELEMENT* 4 

\ ARRAY2.INDEX*=ARRAY2.INDEXX+2* 4 

\ GO TO 17070 IF HIGH.ELEMENTX+HIGH.ELEMENT* <= 4 
FIRST.ELEMENTX+LAST.ELEMENT* 4 
\ SORT.ARRAY2*(ARRAY2.INDEX*-1*)=FIRST.ELEMENT* 4 
\ SORT.ARRAY2*(ARRAY2.INDEX*)=HIGH.ELEMENTX-1* 4 
\ FIRST.ELEMENT*=HIGH.ELEMENTX+1* 4 

\ GO TO 17010 4 

17070 SORT.ARRAY2*(ARRAY2.INDEX*-1*)=HIGH.ELEMENTX+1* 4 

\ SORT.ARRAY2*(ARRAY2.INDEX*1=LAST.ELEMENT* 4 

\ LAST.ELEMENT*=HIGH.ELEMENTX-1* 4 

\ GO TO 17010 4 

17080 GO TO 17110 IF ARRAY2.INDEX*< =0* 4 

\ FIRST.ELEMENT*: SORT.ARRAY2*(ARRAY2.INDEXX-1*) 4 

\ LAST.ELEMENT*-SORT.ARRAY2*( ARRAY2.INDEX*) 4 

\ ARRAY2.INDEX*=ARRAY2.INDEXX-2* 4 

\ GO TO 17010 4 

17090 !••• END OF SORT iii4 


By introducing an auxiliary array SORT.ARRAY2 as a pushdown stack, a further 
speedup is possible. The Quick Sort recursively breaks the array SORT.ARRAY1 
into pairs of subarrays such that all items in one subarray are less than or 
equal to all items in the other subarray. 

Algorithm 5 - Hart Sort 


1000 |* 4 

I••• *#I4 

I ••• INITIALISATION 

I ••• IH4 


SORT.ITEM*=100* 4 


1010 DIM SORT.ARRAY1*(100*) 4 

! 4 

! NUMBER OF ELEMENTS IN SORT.ARRAY?* EQUALS 4 


I NUMBER OF RECORDS TO SORT + 4 

I L0G2(NUMBER OF RECORDS TO SORT) +24 

\ DIM SORT.AHHAY2*( 112*) 4 

17000 I••••••••••••••••••••••••••••••••••••••••••••••••••••••*•••••••••••4 

I••• 1114 

I ••• HART SORT *»4 

!••• IH4 

... 


KUO 4 

\ N*=SORT.ITEM* 4 
\ I*=0*4 
\ M1*=0* 4 
\ T2=0 4 
\ TU=0 4 
\ J* = N*+1* 4 
\ SORT.ARRAY2*(1*)=1* 4 
\ SORT.ARRAY2*(J*)=1* 4 
\ K2=1 4 

\ GO TO 17170 IF N*< = 1* 4 
\ SUN* 4 

17010 I CLIMB TREE TO TWIGS 4 
I ::::::::::::::::::: 4 
GO TO 17020 IF S1<U 4 
\ K2=K2*2 4 
\ B2=S1/2 4 
\ S1=INT(B2) 4 
\ TK = TU+(B2-S1)*K2 4 
\ GO TO 17010 4 

17020 I INITIAL CALCULATIONS 4 
! ==================== 4 

TU = K2-TH 4 
\ B2=K2/2 4 

17030 I NEXT TWIG. 4 
! ========== 4 

CO TO 17170 IF KUK2 4 
\ KUK1 + 1 4 
\ TUK1 4 
\ B1=B2 4 
\ T3=T2 4 

17040 ! INC COUNTER AND CARRY 4 

TUT1/2 4 

\ GO TO 17050 IF INT(T1)<T1 4 
\ M1*=M1*+1* 4 
\ T2=T2-B1 4 
\ BUB1/2 4 
\ GO TO 17040 4 

17050 I TWIG CALCULATIONS 4 
I ================= 4 

T2=T2+B1 4 

\ GO TO 17060 IF S1=2 4 
I 4 

! 3-TWIGS AND 4-TWIGS 4 
1 =================== 4 

\ GO TO 17070 IF T3<T4 4 
! 4 

I 4-TWIG 4 
I ====== 4 

\ M1* = -M1* 4 
\ GO TO 17090 4 

17060 GO TO 17080 IF T3<T4 4 

17070 I 3-TWIG 4 
I ====== 4 

M1*=M1*+1* 4 
\ I*=I*+1* 4 
\ SORT.ARRAY2*(1*)=I* 4 
\ SORT.ARRAY2*(J*)=I* 4 
\ J*=J*+1* 4 


17080 f 2-TWICS 4 
! ======= 4 

M1*=M1*+1* 4 

17090 I*=IX+1* 4 

\ L1 * = I* 4 

\ SORT.ARRAY2*(1*)=I* 4 
\ SORT.ARRAY2*(J*)=I* 4 
\ LO*=J* 4 
\ J*=J*+1* 4 
\ I*=I*+1* 4 
\ L2* = I* 4 

\ SORT.ARRAY2*(I*)=I* 4 
\ SORT.ARRAY2*(J*)=I* 4 
\ GO TO 17110 4 

17100 I MERGE TWIGS AND BRANCHES 4 

{ J*=J*-1* 4 
\ LO* ~ J*-1* 4 
\ L1X = SORT.AR R A Y 2* (LO*) 4 
\ L2*=S0RT.ARRAY2*(J*) 4 

17110 GO TO 17130 IF SORT.ARRAY1*(L1*)<=SORT.ARRAY 1*(L2*) 4 
\ SORT.ARRAY2*(LO*)=L2* 4 

17120 L0X=L2* 4 

\ L2*=S0RT.ARRAY2*(LO*) 4 
\ GO TO 171H0 IF L2*=L0* 4 

\ GO TO 17120 IF SORT.ARRAY1*(LI*)>SORT.ARRAY1*(L2*) 4 
\ SORT.ARRAY2*(LO*)=L1X 4 
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17130 

L0*=L1* & 

\ L1*=S0RT.ARRAY2*(L0*) 4 
\ GO TO 17110 IF LI* <> L0* & 

\ SORT.ARRAY2*(L0*) = L2* 4 
\ GO TO 17150 4 

Besides an auxiliary pushdown stack, Hart uses an array S0RT.ARRAY2 of "links" 
which point to items in SORT.ARRAY1. Using an implicit balanced binary tree, 

Hart's algorithm sorts by doing a minimal number of comparisons. Hart includes 
the pushdown at the end of array SORT.ARRAY2. 

17140 

SORT.ARRAY2*(L0*) = LI* 4 


17150 

Ml* = Ml* - 1* 4 
\ GO TO 17100 IF Ml* > 0* 4 
\ GO TO 17030 IF Ml* = 0* 4 

APPENDIX B 

17160 

1 2ND HALF OF 4-TWIG 4 

Ml* = 1* - Ml* 4 
\ GO TOJ7090 4 

Same as algorithms 1 through 5 of Appendix A except 
A.RRAY$ replaces A.RRAY% giving alpha sorts instead of 

17170 

1 OUTPUT 4 

numeric. 


L0* = SORT. ARRAY2*(N*+1) 4 
\ FOR I* = 1 TO N* 4 
\ PRINT I*,SORT.ARRAY1*(L0*) 4 
\ L0* = SORT.ARRAY2*(L0*) 4 
\ NEXT I* 4 

? 



RSTS 


System Manager’s 
Workshop Tips for 
Maintaining Terminal 
Characteristics 


The smoothest path between RSTS/E and VAX / VMS 
just got smoother: there’s a major new release of 

ROSS/V 

ROSS/V has always provided: 


Marlene Jackson 
Cooperative Services, Inc. 
P.0. Box 5171 
Santa Fe, NM 87502 


• the fastest way to bring up RSTS/E applications on 
the VAX 

• the only way to do RSTS/E development on the VAX 


Here are two suggest ions for helping you keep track of 
terminal characteristics: 

1. Use a wonderful but poorly documented feature of 
RSTS, $TTYSET.MCM, a file in the format: 


• an extensive subset of RSTS/E monitor calls and 
standard RSTS/E features, like CCLs, DOS-formatted 
magtape, and RSTS/E-style file update mode 

Now, in Version 3, ROSS/V supports: 


CONSOLE,'RESUME ANY;LA36;NOLC INPUT;SPEED 300;N0BREAK' 

CAROL,'RESUME ANY;VT50;NOTAB;SPEED 4800; NOBREAK' 

BOB, 1 RESUME ANY;VT100;NOTAB;SPEED 4800;WIDTH 132;NOBREAK 1 
BOARDRM,'RESUME ANY;VT52;NOTAB;SPEED 2400 ; NOBREAK' 

ALICE,'RESUME ANY;VT100;NOTAB;SPEED 4800;WIDTH 132;N0BREAK' 
DIALUP, 'RESUME ANY;VT50;N0TAB;SPEED 300 ; NOBREAK' 

TED,'VT100;WIDTH 132;SPEED 1200 ;N0BREAK' 

Your $TTYSET.CMD file can then look like this: 

RUN 5UT1LTY 

SEND KB0: SETTING TERMINAL CHARACTERISTICS 
EXIT 

RUN 5TTYSET 
KB0:;CONSOLE 
KBl:/RING;PK 
KB2:/RING;PK 
KB3:;BOB 
KB4:;CAROL 
KB5:;TED 
KB6:.ALICE 
KB7:;BOARDRM 
KB8:/RING;DIALUP 


2. In one of your system management accounts, have a 
database which describes each port. Key it on 
keyboard number and include in it: 

$TTYSET.MCM macroname 

Terminal type (hardcopy, VT100, etc.) 

Location descriptors 


• the "hidden" RSX run-time system (with 32 KW 
job size) 

• resident libraries. 

• job spawning and detached jobs 

• spooling to VMS print and batch queues 

• mailbox send/receive for communication with VAX-11 
BASIC and other native mode applications 

How ROSS/V works: 

ROSS/V is written in VAX-11 MACRO, and RSTS E monitor calls 
are performed in VAX native mode The rest of your PDP-11 code (in 
applications, run-time systems, TKB. etc.) is executed directly in the 
PDP-11 microcode that’s present in every VAX ROSS V runs under 
VMS, not in place of it Thus, some users may be working under the 
RSTS/E subsystem provided by ROSS/V while others are concur¬ 
rently using any of the other VAX/VMS capabilities 

Call or write for the new ROSS/V technical summary, 
which describes all of ROSS/V s features. 


You may then: 

Write a program for updating the database which 
recreates STTYSET.CMD each time the $TTYSET.MCM 
macroname field is changed, making your startup 
command file correct at all times. 

Refer to that database for terminal type in 
programs which want to do screen formatting. 
Your users will think your programs are very 
clever because they behave differently when run 
on a hardcopy than when run on their klunky old 
terminal and still another way when run on the 
boss's VT100. 


Evans Griffiths & Hart, Inc. 

55 Waltham Street 
Lexington. MA 02173 
(617)861-0670 


OnLine Data Processing, Inc. 

N 637 Hamilton 
Spokane. WA 99202 
(509)484-3400 


PDP, RSTS, RSX. VAX, and VMS are trademarks 

of Digital Equipment Corporation CIRCLE 176 ON READER CARD 



ROSS/V 


RSTS PROFESSIONAL. April 1983 


Page 47 













T 1IPS& 

ECHNIQUES 

A Column For The Advanced RSTS/E User Steven T. Edwards. Software Techniques. Inc. 


BEEP-BEEP FOR GARBAGE COLLECTION 

On RSTS, most programming is done in either BASIC- 
PLUS or BASIC-PLUS-2. Both of these programming 
languages support dynamic character strings. A dynamic 
string is a string whose space is allocated dynamically at run 
time. Each time a string assignment statement is executed, 
the language object time system (OTS) allocates space from 
the program's free space for the destination string. The 
space previously allocated to the destination string is not 
available for re-use until all of the free space has been ex¬ 
hausted and the OTS does some form of space reclamation 
or garbage collection. The resources expended to perform 
this garbage collection are resources that could be put to 
better use, like playing MTREK. 

This is not news to most of us. Most of us are aware 
that the OTS is doing something but we don't know why or 
when. This article will give a brief and simplistic explanation 
of why the garbage collector is executed, and give you the 
tools you need to tell when the garbage collector is executed. 
This article will also address techniques to reduce the need 
for garbage collection. 

Why 

The in-memory layout of a BASIC program (minus run¬ 
time systems and resident libraries) is shown in figure A. 


STRING SPACE 
! 

V 


FREE SPACE 


I 

I/O BUFFER SPACE 


CODE/DATA 


FIGURE A 

What this figure shows is that the dynamic string space 
expands down from the top of the program (from high 
memory addresses towards low memory addresses), and 
the I/O buffer space expands up. The free space is the 
amount of space not currently allocated to either I/O buf¬ 
fers or string space. 

When a dynamic string assignment statement is ex¬ 
ecuted, the OTS checks to see if there is enough free space to 


contain the destination string. If there is not enough free 
space, the OTS will call the garbage collector to reclaim de¬ 
allocated space. After the garbage collection, if there still is 
not enough free space to contain the destination string, the 
OTS will request the operating system (RSTS) to increase the 
amount of memory allocated to this job. If the operating 
system cannot expand the program, the OTS will abort the 
program with a "?Maximum memory exceeded" error. If the 
operating system can expand the program, the OTS will 
move the dynamic strings to the new top of memory, 
creating a larger free space. (See figures B — E.) 


Program executes: A$ = "HELLO THERE" 


IHELLO THERE ! 


FIGURE B 

Program executes 

B$ = "THIS IS A TEST" 

IHELLO THERETHIS 

IS A TEST 1 


FIGURE C 


Program executes: A$ = "" 

(OTS marks A$ as deallocated) 


(•••••••••••THIS IS A TEST I 


FIGURE D 


Program executes: C$ = STRING$(50,64) 

(C$ is too large for free space, OTS 
repacks dynamic strings, still not enough 


free space, OTS expands program, moves 
dynamic strings to new top of memory, 
allocates C$) 

(•••••••••••THIS is a TEST ! 

!THIS IS A TEST I 

I I 

ITHIS IS A TEST ! 

!THIS IS A TESTWe##§#§MMWM§#e§##W§! 


FIGURE E 

When 

The patches below (one for BASIC-PLUS and one for 
BASIC-PLUS-2) will tell us when the OTS does a garbage col¬ 
lection operation. The patches will cause the OTS to ring the 
terminal bell by printing a CONTROL-G each time the gar¬ 
bage collector is executed. 
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BASIC-PLUS 

To install the patch to the BASIC-PLUS run-time 
system, copy your existing run-time system to a new file 
called BASBEL. This is the file that we will be patching. 


PIP [0,1]BASBEL.RTS/MO:16=[0,1JBASIC.RTS 
RUN [1,2]0NLPAT 


PATCH TO CAUSE THE BASIC-PLUS RUN-TIME SYSTEM TO ’BEEP' WHEN THE 
GARBAGE COLLECTOR IS CALLED. 

COPYRIGHT (C) 1982, 1983 BY SOFTWARE TECHNIQUES, INC. 

LOS ALAMITOS, CA 90720 

NOTE THAT IT IS UP TO YOU TO FIND 16 WORDS OF UNUSED PATCH SPACE. 


File to patch? [0,1JBASBEL.RTS 
Base address? ECONOM 


Offset 

address? 

250 



Base 

Offset 

Old 

New? 

?????? 

000250 

?????? 

? 

4737 

?????? 

000252 

?????? 

? 

PA+offset 

?????? 

000254 

060001 

? 

“Z 

Offset 

address? 

*z 



Base address? PA+offset 



Offset 

address? 

0 



Base 

Offset 

Old 

New? 

?????? 

?????? 

?????? 

? 

012701 

?????? 

?????? 

?????? 

? 

442 

?????? 

?????? 

?????? 

? 

012711 

?????? 

?????? 

?????? 

? 

1 

?????? 

?????? 

?????? 

? 

012121 

?????? 

?????? 

?????? 

? 

012721 

?????? 

?????? 

?????? 

? 

.♦22 

?????? 

?????? 

?????? 

? 

005021 

?????? 

?????? 

?????? 

? 

005021 

?????? 

?????? 

?????? 

? 

005021 

?????? 

?????? 

?????? 

? 

005021 

?????? 

?????? 

?????? 

? 

.WRITE 

?????? 

?????? 

?????? 

? 

016001 

?????? 

?????? 

?????? 

? 

2 

?????? 

?????? 

?????? 

? 

207 

?????? 

?????? 

?????? 

? 

7 

?????? 

?????? 

?????? 

? 

“Z 

Offset 

address? 

“Z 



Base address? “2 




File to 

patch? 

z 




; JSR 0IBASBEL 

; (USE YOUR OWN OFFSET.) 


; (USE YOUR CWN OFFSET.) 


; BASBEL:MOV #442,R1 

; MOV #1,(R1) 

; MOV (R1)♦,(R1)♦ 

; MOV #BEL,(R1 )♦ 

; CLR (R1 )♦ 

; CLR (R1 )♦ 

; CLR (R1 )♦ 

; CLR (R1 )♦ 

; .WRITE 

; MOV 2( RO), R1 

; (CODE THAT WE CLOBBERED WITH OUR JSR.) 
; RETURN 

; BEL: .WORD 7 


To use this new run-time system, add the run-time 
system to the monitor tables, and then either switch into 
BASBEL to compile a program, or name an existing com¬ 
piled file to BASBEL. 


BASIC-PLUS-2 

To install the patch to the BASIC-PLUS-2 OTS, extract 
the "$STMSC" module from the OTS library, patch the object 
module, and DO NOT replace it in the OTS library. 


BP?BEL.MAC 

PATCH TO CAUSE THE BASIC-PLUS-2 OBJECT-TIME SYSTEM TO 'BEEP' 
WHEN THE GARBAGE COLLECTOR IS CALLED. 


COPYRIGHT (C) 1982, 1983 BY SOFTWARE TECHNIQUES, INC. 


; 

LOS ALAMITOS, CA 90720 




.TITLE 

$STMSC 




.IDENT 

/SOFTEC/ 




.PSECT 

BP20TS,RW,I,LCL,REL,CON 



$$$$$$ 

= 


SAVE THE START OF THE 

PSECT. 


= 

$$$$$$♦46 

OFFSET TO THE CALL FOR 

THE 




STRING COMPACTOR. 



CALL 

BP2BEL 

CALL THE BEEPER. 



s 

$$$$$$♦610 

OFFSET TO THE ROUTINE 

WE 




REPLACED. 


COMPAC: 

.PSECT 

BP2BEL,RW,I,LCL,REL,CON 

(MAKE UP A LABEL.) 



BEL: 

.WORD 

7 i 

; BEEP. 

BP2BEL: 

MOV 

R1 ,-(SP) 

SAVE R1. 


MOV 

#442,R1 

ADDRESS OF XRB. 


MOV 

#1,(R1) 

LENGTH OF BEL. 


MOV 

(R1)♦,(R1)♦ 

" " " 


MOV 

#BEL,(R1)♦ 

ADDRESS OF BEL. 

.REPT 

4 




CLR 

(R1)♦ i 

; ZAP A WORD. 

.ENDR 

EMT 

4 

.WRITE (ASSUME NO ERRORS) 


MOV 

(SP)+,R1 

RESTORE R1. 


JMP 

COMPAC 

COMPACT THE STRINGS. 


• END 


To use this new OTS module, you must link it into your 
task image. You must reference the BP2BEL module in your 
task builder CMD/ODL files. Do not link the task to any 
BASIC resident libraries because the task builder will not 
resolve the reference to the $STMSC module correctly. You 
also must reference BP2BEL before you reference the OTS 
library. 

TKB task = object, BP2BEL, LB: BP2COM/LB 


So what 

Now that we can tell when a program is garbage col¬ 
lecting, what can we do about it? The first step is to iden¬ 
tify the programs that are constantly calling the garbage 
collector. It is interesting to note that it's not just the 16KW 
BASIC-PLUS or 31KW BASIC-PLUS-2 programs that con¬ 
stantly call the garbage collector. All programs that con¬ 
stantly allocate/deallocate dynamic strings will incur the 
wrath of the garbage collector. The frequency of calling the 
garbage collector is a function of the size of the free space 
and the frequency of string allocation. You can reduce the 
frequency of calling the garbage collector by either increas¬ 
ing the size of the free space, or reducing your program's 
demands upon it. 

Increasing the size of the free space can be accomplished 
by allocating a large string (several thousand bytes long) to 
force the program expansion, and then deallocating the 
string by assigning it to a null string In BASIC-PLUS-2 
this can also be accomplished by using the task builder 
"EXTTSK" directive. 

You can reduce your program's demands upon free 
space by: 

1. Using fixed length strings in BASIC-PLUS-2 by declar¬ 
ing the strings in a MAP/COMMON statement. 

2. Pre-allocating strings and then using LSET/RSET to 
assign values. 

3. Deallocating strings as soon as they are no longer 
needed. BASIC-PLUS-2 automatically deallocates all local 
dynamic strings when a sub-program is exited. 

4. Coding programs so that they don't build strings 
piece by piece. 

Now, the next time you find yourself sitting in front of 
your terminal wondering why your BASIC program takes so 
long to run. you have the tools to see if dynamic string gar¬ 
bage collection is the cause. 
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DBL FOR PDP-11 AND VAX BASED COMPUTERS 


DBL, a structured superset of DEC'S DIBOL-11 Business Programming Language, is 
available in two new releases: DBL/VMS is available for VAX/VMS in native mode, 
emits in-line code, and is source code compatible with DIBOL-11 code. DBL Runtimes 
are available for most DEC PDP-11 operating systems as a runtime-only license. Call for 
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3336 BRADSHAW ROAD • SUITE 340 • SACRAMENTO, CA 95827 • 916/363-7385 • TWX 910/367-3701 

DIGITAL INFORMATION SYSTEMS CORPORATION 


CIRCLE 32 ON READER CARD 






The VAX-SCENE 

Number 13 (RSTS PROFESSIONAL. Vol. 5. No. 2) April 1983 



INSIDE: 

Learning to Use the VAX Debugger 


RSTS PROFESSIONAL. April 1983 


Page 51 










LEARNING TO USE 
THE VAX DEBUGGER 
(for those of you who 
make mistakes ...) 





By Bob Meyer 


The VAX debugger is probably one of my favorite 
pieces of software on the whole system. (Yes, I’m one of 
those weirdos who LIKES to write software.) If any of you 
have used RSXODT on RSTS, RSX or IAS, you're in for quite a 
treat. This debugger is fully symbolic (meaning it knows 
about variables, psects, labels, etc., in your program) and 
understands the VAX instruction set; a feature which lets 
you examine instructions in assembly language format, as 
well as type in mnemonics to be assembled (on the spot) by 
the debugger. (Neat!) 

In this article we ll talk about some of the basic debug¬ 
ger commands and (as always) give some examples in 
MACRO (is there anything else??) 

First let's consider a simple program (you may want to 
key this in and try the examples that follow): 


.TITLE 

DEBUG 


.IDENT 

/O.O/ 


.PSECT 

IMPURE 


NUM1: 

.WORD 

1 

NUM2: 

.WORD 

2 

.PSECT 

CODE 


BOB: 

.WORD 

0 


MOVZWL 

NUM1.R0 

10$: 

INCW 

RO 


CMPW 

R0, # 10. 


BLSS 

RET 

10$ 


.END 

BOB 


(by the way, this program' isn’t meant to do anything 
useful...) 
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Assemble this little beauty with: 

$ MAC BOB/ENABLE = DEBUG 

assuming you called it BOB.MAC (how flattering!). The 
/ENABLE = DEBUG causes the assembler to place debugger 
records in the object file containing names of symbols in 
your program (and probably other things I know very little 
about). 

Then link: 

$ LINK BOB/DEBUG 

This links your image with the symbolic debugger. 

When you run the program, the debugger will take con¬ 
trol: 

$ RUN BOB 

VAX-11 DEBUG Version 2.3-5 
%DEBUG-I-INITIAL. language is MACRO, module set to 
DEBUG' DBG> 

Let's look at the EXAMINE command first. The 
EXAMINE command allows us to look at anything in our vir¬ 
tual workspace (this also includes various system routines if 
you reference them.) EXAMINE has several modes in which 
you can look at your program or data: the default mode is 
hex: 

DBG>E NUM1 

DEBUG \ NUM1: 00020001 

DBG> 

In this example I’ve asked to Examine NUM1'. which 
contains a constant 1. (Note the EXAMINE command can be 
abbreviated to E .) The DEBUG' in the debugger's response 
is the .TITLE of the current module. The NUM1 is the nearest 
symbol to the location we re examining; the number that 
follows is the value of NUM1. (Actually, since we re examin¬ 
ing in LONGWORD mode by default, we re seeing NUM1 and 
NUM2 back-to-back.) 

Some options of the EXAMINE command are: 

/OCTAL, /HEX, /DECIMAL 

which cause the debugger to ACCEPT and DISPLAY all 
numbers in the requested radix. 

The options: 

/BYTE, /WORD, /LONGWORD 

specify the format to display the data in: for example: 

DBG > E/WORD NUM1 
DEBUG \ NUM 1: 0001 

DBG > E/BYTE NUM1 
DEBUG \NUM1: 01 

DBG > E/LONG NUM1 
DEBUG \ NUM 1: 00020001 
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The qualifiers OCTAL. DECIMAL, & HEX can be com¬ 
bined with BYTE. WORD. & LONGWORD as needed. 

Perhaps the most useful form of the EXAMINE com¬ 
mand is the /INSTRUCTION option: 

DBG > E/IN BOB 
DEBUG \ BOB: HALT 


00000201 

HALT 


00000202 

MOVZWL 

Lt DEBUG \ NUM1.R0 

00000209 

INCW 

RO 

0000020B 

CMPW 

R0, # 0A 

0000020E 

BLSS 

DEBUG \ CODE+ 09 

00000210 

DBG> 

RET 



Issuing subsequent EXAMINE commands will cause the 
debugger to list sequential memory locations: 


Also, the command: 
DBG>E PSW 


DBG > E/I 

DEBUG \ CODE+ 01: 
DBG > E/I 

DEBUG \ CODE+ 02: 
DBG > E/I 

DEBUG \ CODE+ 09: 


HALT 

MOVZWL LI DEBUG \ NUM1.R0 
INCW RO 


or to list a block of memory, specify the memory range 
separated by a colon Y — 


DBG > E/I BOB:BOB+ 10 
DEBUG / BOB: HALT 

DEBUG \ CODE+ 01: MOVZWL 
DEBUG \ CODE+ 09: INCW 
DEBUG \ CODE + OB: CMPW 
DEBUG \ CODE+ 0E: BLSS 
DEBUG \ CODE+10: RET 
DBG> 


Lt DEBUG \ NUM1.R0 
RO 

RO, # OA 

DEBUG \ CODE+ 09 


(Some of the above numbers (CODE+ 01, etc.) may be inac¬ 
curate here.) 

Other EXAMINE switches are: 


/ASCILn 

Lists memory in ASCII format; n is the number of bytes to 
list (default is 16.) Assuming you have some ASCII text 
defined similar to this: 


MSG: .ASCII /Macro men do it Faster!/ 


Typing the command: 
DBG>E/AS:5 


will format and display the bits in the program status word. 

The defaults in the EXAMINE (as well as DEPOSIT) com¬ 
mands can be changed using the SET MODE command. 
Some of the SET MODE commands are: 

SET MODE INSTRUCTION Attempts to disassemble 

memory contents and display 
mnemonics. 

SET MODE NOINSTRUCTION Displays memory in the cur¬ 
rent numeric mode (hex by 
default). 

SET MODE OCTAL [or DECIMAL or HEX] 

Establishes the default radix 
for input & output of non- 
symbolic data. 

SET MODE SYMBOL Displays symbol names from 

the symbol table in the image 
instead of memory addresses. 
SET MODE NOSYMBOL Displays (virtual) memory ad¬ 
dress of examined locations. 
SET MODE WORD [or BYTE, or LONGWORD] 

Displays all memory contents 
as words, bytes, or 
longwords, as specified. 

The DEPOSIT command can be used to change the con¬ 
tents of memory in the user workspace. The DEPOSIT com¬ 
mand takes most of the same switches as the EXAMINE 
command. Some examples of DEPOSIT follow: 

DBG>D NUM1 =5 

Places the number 5 into location NUM1. (Remember, 
the default is hex unless you change it.) 


would print: 

DEBUG \ MSG: Macro 
/SYMBOL 

Lists symbol names along with memory contents. This is the 
default. 

/NOSYMBOL 

Suppresses listing of symbol names, and prints the absolute 
(virtual) values instead: 

DBG > E/I/NOSYM B0B:B0B+10 


DBG > D/OCT NUM1 =10 

Deposits an octal 10 (8.) into NUM1. 

DBG > D/HEX/WORD NUM2 = 0E 

Places the hex value E (14.) in the location NUM2. Note 
that when depositing hex values A-F a leading zero is re¬ 
quired so the debugger doesn't try to interpret the letter as 
a symbol. 

DBG > D/ASCII:6 MSG = Howdy!' 

Places the specified string in memory starting at the 
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location MSG'. If the length of the string is greater than the 
number specified with the /ASCIhn switch, the string is 
padded to the right with spaces. The default length is 4 
bytes. 

DBG > D/I BOB = CLRW RO' 

This command (DEPOSIT/INSTRUCTION) will assemble' 
the instruction (and operands) and place the result in the 
specified memory location (far out!). Keep in mind that 
when modifying instructions, you have to keep track of the 
instruction length(s). For example, replacing a three word in¬ 
struction with a one word instruction leaves you with two 
words of trash (they wouldn't let me say 'crap'...) which 
can cause some pretty interesting results when the proc¬ 
essor attempts to execute them. So, we NOP them: first 
we'll put the new instruction in: 

DBG > D/I BOB = 'CLRW RO' 

Then the NOPs: 

DBG > D/I NOP' 

DBG > D/I NOP' 

To begin execution of your program, use the GO com¬ 
mand: 

DBG > GO 

The debugger tells you where it's starting from: 

Start at DEBUG \ CODE + 00 

and turns control over to the program. (Remember, the 
sample program doesn't actually do anything . . .) 

The STEP command is useful for single stepping 
through the program and examining or changing values as 
you go: 

DBG > STEP 

The debugger prints: 

Start at DEBUG \ CODE + 02 

Stepped to DEBUG \ CODE + 09: INCW RO 

telling you the address of the instruction to be executed, 
then the address and the assembly mnemonic of the in¬ 
struction to be executed by the next STEP command. STEP 
can be shortened to just 'S'. 

It might be advisable to get a feel for the debugger at a 
time when you don't really need it, rather than waiting until 
you have a real problem on your hands. 

Well. I'll leave you with the words of my great, great, 
grandfather. Oswald Meyer, who said "That's not a bug, 
that's a feature!" 

Enjoy. ® 


MACRO MAN 

SOFTWARE 

CONSULTING 

Custom Macro Programming/Consulting on 
RSTS/E & VAX/VMS 
also 

RSTS/E MONITOR INTERNALS 
& TUNING 

★ Telephone Support Available 

★ On-Site Support Available 

★ On-Site Seminars Available 

MACRO MAN SOFTWARE CONSULTING 

BOB MEYER 
9 LOCKWOOD AVENUE 
FIELDSBORO, NJ 08505 

609/298-9127 
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OPTIMIZING BACKGROUND USAGE 

Michael Mayfield, Northwest Digital Software. Box 2-743, Newport, WA 99156 


Last issue 1 introduced a patch to the RSTS monitor that 
gave RSTS high priority, realtime response. This article will 
describe a patch for optimizing the use of low priority, 
background tasks. 

The priority structure of RSTS allows you to specify 
that certain tasks are more important than others and 
should be allowed to run more often. Conversely, you can 
specify that certain programs are less important and should 
run less often. 

By making it low enough priority, a program will only 
run if no other program on the system is runnable. This 
allows you to make use of computer time that would nor¬ 
mally be wasted, supposedly without degrading the perfor¬ 
mance of other more important programs. 

Unfortunately, it doesn't really work that way. Once 
the low priority program starts to execute it is allowed to 
continue for its entire run burst, usually 1 /10th of a second. 

If the higher priority tasks are performing a lot of I/O, 
the system can have lots of little inactive times. The 
background task will run for its entire run burst during each 


of these inactive times. This can significantly degrade the 
performance of the higher priority tasks. 

The following patch allows a task running below prior¬ 
ity -64 to immediately stop running when a higher priority 
task becomes runnable. Average response degradation is 
less than one millisecond. 

This patch uses patch space that is allocated for pos¬ 
sible monitor patches. Future monitor patches may require 
the same patch addresses. If this occurs, the realtime patch 
will have to be removed or moved to a different location in 
patch space. The patch is position independent and can be 
installed in any other area in patch space that is not in use. 

The comments following the semi-colons are for infor¬ 
mation only and can be ignored while entering the patch, 
although they will not cause any problems if entered. 
< LF> is used to signify a linefeed. ?????? is used to signify 
that any value is acceptable for this field. 

As with all patches, be sure that the offset and old 
values are correct for each line before making any changes. 
If any of the old values is incorrect, abort the patch by typ¬ 
ing 1C. 


RUN Cl >230NLPAT 

Command file name? LOUF'R I t LOG = 
File to.patch? <LF> 

Module name? < L F > 

Base address? PATCH+340 
Offset address? 0 


Base 

Offset, 

Old 

New? 


777777 

000000 

000000 

7 

105737 

1 Is a Job currently running 

777777 

000002 

000000 

7 

JOB 


777777 

000004 

000000 

7 

1414 

;hq 

777777 

000006 

000000 

7 

13746 

i Point to JDB for current Job 

777777 

000010 

000000 

7 

JOBDA 


777777 

000012 

000000 

7 

62716 

fPoint to JDB+JDPRI (Job's priority) 

777777 

000014 

000000 

7 

34 


777777 

000016 

000000 

7 

123627 

jI s current Job low priority 

777777 

000020 

000000 

7 

-64 . 

{ (priority threshold) 

?????? 

000022 

000000 

7 

2003 

{ No 

777777 

000024 

000000 

7 

52737 

5 Schedij 1e t he I/O *job immediately 

777777 

000026 

000000 

7 

20000 


777777 

000030 

000000 

7 

L3QUE2 


7 '?'?'?'?'? 

000032 

000000 

7 

105737 

{Replace the patched instruction 

777777 

000034 

000000 

7 

JOB 


777777 

000036 

000000 

7 

207 

{Return from patch 

777777 

000040 

000000 

7 

"Z 


Offset 

address? 

”Z 




Base address? J0FIN4 




Offset 

address? 

62 




Base 

Offset 

Old 

New? 


'?'???'?? 

000062 

105767 

7 

4737 

{Enter patch 

7777777 

000064 

'?'?'???■? 

7 

F’ATCH + 340 INOTEJ New value must match patch 

777777 

000066 

001003 

7 

~C 

{End of patch 
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”T he Bridge™ is software that creates a 
virtual microcomputer at every ter¬ 
minal connected to my mini. I have 
all the functions of a micro, but with¬ 
out micro limitations. 

"The z-Board™ has four z-80a® micro¬ 
processors per board to execute 
programs at high speed. Faster than 
many dedicated micros. And it has 
256K bytes of RAM, plus a bit slice 


state machine. That's the guts of four 
micros for less than you might pay 
for one. 

"With The Bridge, I can run CP/M® 
based programs. I like that. And micro 
programs like Supercalc® are easy to 
use,and inexpensive.! like that,too. 

’’But the best thing about The Bridge is 
systems integration. Now everyone 
in the office uses the same system — 
no more problems with disk formats, 
incompatible languages or programs. 
The Bridge provides each user with a 


virtual microcomputer with the ad¬ 
vantages of a mini's high-speed print¬ 
ers, hard disks, and communications. 

"The Bridge with a z-Board gives me the 
performance of four microcomputers 
— at a fraction of the cost!' 

The Bridge and z-Board are trademarks of Virtual 
Microsystems, Inc. 

z-80a is a registered trademark of Zilog, Inc. 

CP/M is a registered trademark of Digital Research. 
Supercalc is a registered trademark of Sorcim, Inc. 


For information, call Jim Swanson 
(415)841-9594. 



"Tfie B ridge and a z-Board - 
the four best microcomputers 
l never bought.” 


2150 Shattuck, Berkeley, CA 94704 


o 

virtual 

microsystems 






















USE[ful,less] 

BASIC PLUS 2 SOFTWARE 

By Edward A. Heinrich 


This article contains some routines for the Basic Plus 2 
applications programmer. Although I myself prefer to play 
with the OS instead of applications (actually I'd rather be 
skiing, but...), in most companies applications programs 
are the bread and butter that pay the salaries. I have 
developed some routines coded in MACRO-11 and callable 
from BASIC PLUS 2. This article will provide a few that have 
been found useful and suggest some alternative ways of ob¬ 
taining information normally only obtainable by doing SYS() 
calls. If you are not a MACRO programmer, please don't get 
scared and turn the page — all the routines are fairly simple 
and can be used just as if they were BASIC PLUS 2 
subroutines. 

XCONTG.MAC 

Here is a favorite contradiction—Good Disk Manage¬ 
ment' dictates that files be created contiguously. In real life 
though, dynamic files eventually become full, and if created 
contiguously. RSTS will generate a ?Protection Violation er¬ 
ror message when it attempts to extend the file. This occurs 
because a bit is set in the file's directory entry (Bit 4 in 
USTAT). indicating that the file is contiguous. It used to be 
that when this occurred a user would call one of the pro¬ 
grammers who would then use UTILTY to FLAG the file 
/NOCTG. While workable, this is not a desirable solution. 
Eventually the programmmers become tired of spending 
their time flagging files so they no longer create them con¬ 
tiguous. and violate the Good Disk Management' rule. To 
get around this problem. I have written a MACRO routine 
that will do the dirty work of unsetting the contiguous bit in 
the directory entry if a Protection Violation error occurs on a 
PUT or UPDATE, and keeps the programming staff pro¬ 
gramming. 

To use XCONTG, trap for an ERR = 10%. resume at a 
line number external to the error handler, and CALL XCON- 
TG(CHANNEL%) where CHANNEL% is the channel number 
of the file you desire to flag as non-contiguous. Note that no 
errors are expected in XCONTG, but if any do occur, the error 
code will be returned in CHANNEL%. 

23100 IF ERR = 10$ 

THEN RESUME 29000 

29000 PRINT #12$, 'File is Full - Extending ... Please Wait' 

\ CHANNELS = 1$ 

\ CHANNELS = 2$ IF ERL = 1020 
\ CALL XC0NTG(CHANNEL$) 

\ IF CHANNEL$ 

THEN PRINT #12$, '7XC0NTG Error ERT$(CHANNEL$) 

\ GOTO 32767 

ELSE GOTO 1020 IF ERL = 1020 

\ GOTO 2000 

! Print an informational message to the user 
! Set up the channel number depending on where the 
I error occurred 

I Call XCONTG to unset contiguous bit 
! If any errors returned then complain 
! Else branch back into code 


CAP.MAC 

This is MACRO version of a routine developed by James 
F. Shaughnessy. Jr. (See Input Loop Programming Tech¬ 
nique' in RSTS Professional Vol. 4. No. 1, February 1982). In 
data entry programs it is often desirable to allow the 
operator to enter data in lower case. It is also desirable to 
have the first letter of each word capitalized. Jim coded a 
routine that allows the operator to enter all the data in 
lower case and capitalizes the first letter in each word. I per¬ 
sonally find this a very useful feature and the data entry 
operators seem to like it too. so I decided to convert it to 
MACRO. 


Programming example - 

2000 CALL USERIN(10$,14$,INPUT$) 

! Take in user input and do any edits for <CR> or whatever 

2100 CALL CAP(INPUT$) 

\ PRINT #12$, INPUT$ 

! Call CAP to capitalize 1st letter in every word 
! Reprint it for the user to see 

If the operator precedes a character with a slash, ' the character 
is not capitalized and the slash is removed from the string. 


KBNUM.MAC 

Do you ever have the need to obtain either the current 
keyboard number and/or the installation name? You can do 
it by using the SYS() CALL to return error messages, but 
that requires a thread. $IESYS. that takes up 1194 bytes of 
address space. You can often write little MACRO routines 
that accomplish the same purpose as SYS() functions but re¬ 
quire substantially less space. KBNUM.MAC is an example of 
such a routine. You may CALL KBNUM(KB%,I$) to return 
the current keyboard number and installation name, or 
CALL KBNUM(KB%) if you only want the keyboard number. 
Note that since MACRO programs cannot create strings, 1$ 
must be defined in the calling routine prior to calling 
KBNUM. 


TTECHO.MAC 

There are occasions when you may wish to disable the 
echo control on a keyboard, for example, to take in a 
password. Once again I have gotten around the use of the 
SYS() call routine by a MACRO program that will enable or 
disable echo control on the keyboard opened on channel 
# 12. TTECHO contains two entry points so that you may 
just do a call to either entry point without the need to pass 
any flags. You may modify it to operate on another channel 
by changing the 
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MOVB # 24.,@ # XRB + 6 to the desired channel number ' 2. 

To use TTECHO and disable echo control—CALL NOECHO. 

To re-enable echo control—CALL ECHO. 

In the .ODL file add the subroutine name TTECHO. 

LOOK MA, ‘No SYS() function’ 

Another way to eliminate some SYS() calls is to access 
virtual sections of your program and read what RSTS has 
put there. This, if you are not a MACRO programmer or have 
never used the VSECT directive, needs some explanation. 

FIRQB — File Request Queue Block — is the main area 
used to exchange information between the monitor and the 
job for operations that involve file or device operations. 

VSECT — a task builder directive that allows a user job 
to have direct access to a Virtual SECTion, or address, in the 
user's job area. It is currently undocumented in the RSTS/E 
Task Builder Manual, but it is documented in the RSX ver¬ 
sion. The format of the VSECT directive is as follows, 

VSECT = MAPNAM:STARTLOC:LENGTH 
where MAPNAM is the name of a buffer, i.e., a mapped buf¬ 
fer, STARTLOC is the starting virtual address, i.e., the FIRQB 
is at location 402 in a job using the . . . RSX runtime system, 
and LENGTH is the length to map. To access the FIRQB we 
would place in our BP2 program a map similar to this one: 

700 MAP (FIRQB) FIRQB?, 

FQFUN? , 

FQFIL?, 

FQPPN? , 

FQNAM1? , 

FQNAM2?, 

FQEXT?, 

FQSIZ?, 

FQBUFL?, 

FQMODE?, 

FQFLAG? , 

FQPROT?, 

FQDEV$ = 2?, 

FQDEVN?, 

FQCLUS?, 

FQNENT? 


(For a full description of the above naming scheme refer 
to Chapter 2 of the RSTS/E Systems Directives manual.) 

Then in the .CMD file we add the following line: 

VSECT = FIRQB:402:40 

We can now access the FIRQB from BP2 just the same as if 
we were writing in MACRO. Now that you are familiar with 
the VSECT command. I’ll give a few examples of how to use 
it. If you require the job number all you need to do is map 
the FIRQB, include a VSECT for it, and the job number is at 
your finger tips. RSTS always returns the current job 
number at FIRQB + 2. Even if your program does not do any 
monitor calls, the job number will be available since it is 
returned when the task is loaded from the disk on a RUN 
command. 


700 MAP (FIRQB) FILL$ = 2?, 

FQJ0B$ = 1? ! Current job number 

710 JOB.NUM? = ASCII(FQJOB$) / 2? ! Get our job number 


(Note that if this is all of the FIRQB you will need, you should 
modify the VSECT length to 3.) 


We can access core common in the same manner. Core 
common is used to exchange information between user pro¬ 
grams and the monitor and the job. Core common is located 
at location 460(8), and is 200(8) bytes long. The first byte 
contains the length of the valid data in core common. The 
next 177(8) bytes contain the data. You can do some rather 
interesting things with core common. One is to use core 
common as an intermodule common area. You map it the 
way you would any shared data area but since you have 
177(8) bytes of space always in the low section of the task 
you might as well take advantage of it. Consider the follow¬ 
ing BP2 example: 


r DEC best values 

PRE-OWNED DEC EQUIPMENT 


BUYING AND SELLING 

SYSTEMS • CPU's • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 

dataware 

c incorporated 

1500 NW 62nd St.. Suite 512 

Ft. Lauderdale, Florida 33309 
Telephone (305) 771-7600 J 
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Announcing MPR 

A VERSATILE MACRO-LANGUAGE 
UTILITY FOR RSTS/E 

Flexible enough for OEM’s and End-Users 

Functional highlights include: 

• Customized code generation. 

• Nestable macros and "INCLUDE” statements 
with arguments. 

• Algebraic expression evaluation. 

• Control file generation. 

• Extensive debugging mode. 

• Easy to use syntax. 

• Complete documentation with sample macros. 

Benefits: 

• Reduce software maintenance costs. 

• Increase software portability. 

• Simplify operations and training. 

• Compatible with your existing programming 
standards. 

Interested in significantly improving 
programming productivity? 

CALL OR WRITE FOR DETAILED INFORMATION 

I-Noah Dixon-1 

I— Star Plan Data Processing, Inc_I 

2040 W. Wisconsin Avenue - Suite 354 
Milwaukee, Wisconsin 53233 - (414) 933-0800 
• Soon to be released for RSX and VMS 
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700 

MAP (CORCMN) 

C0RCMN$ 

= 

u, 

I Length of CORCMN 



C0RE_C0MM0N$ 

= 

127* 

! Rest of buffer 

\ 

MAP (CORCMN) 

FILL$ 

= 

1*, 

1 Fill for CORCMN 



FILE_L0CATI0N$ 

r 

13*. 

! Location of files 



USER_ID_N0*, 



! User's id number 

\ 

MAP (CORCMN) 

E_RROR_FLAG* , 



1 Intermodule errors 



C0MM0N_FLAG* , 



I Bit map flags 



LAST_C0MPANY$ 

= 

6*, 

1 Last company ID # 



LAST_RFA* 



! Records' RFA 


! The first map is a generalized map of core common 
! The second map contains description of info passed from a 
1 chaining program. 

! The third map is data passed between different subroutines. 
I Be sure to include VSECT=CORCMN:460:200 in the .CMD file. 


Another location in the low section of a task that is 
useful is the KEYWORD at location 400 (8). The keyword 
defines the job's privilege. By testing the appropriate bits of 
this word, we can ascertain the job's privilege. 

700 MAP (KEYWRD) KEYWRD* ! Map the Keyword 

! Include in .CMD VSECT = KEYWRD:400:2 

710 GOTO 32767 IF (KEYWRD* AND 1024*) = 0* 

I Kick them out unless permanently privileged, i.e., [1,•] 


One word of warning concerning the use of the VSECT 
directive. It is available under V7.0—7.2 of the RSTS task 
builder. Since it is NOT documented, there is no guarantee 
that DEC will not remove it from a future implementation of 
the task builder. Also, although the above uses do, in fact, 
work and are implemented at other RSTS sites, I have never 
seen a DEC program use these techniques. (Then again I 
have seen very few DEC programs coded in BP2). Futher- 
more, the enclosed, program listings are believed to be cor¬ 
rect, (I hope I have submitted the correct versions), but the 
author takes no responsibility for any programming errors. I 
hope that you find these routines helpful. 



.TITLE 

CAP 



.IDENT 

/VI.00/ 



.ENABL 

LC 



.PSECT 

CAP,RO,0VR 



Project 

: In-House 


Program 

: CAP.MAC 


Author 

: Ed Heinrich 


Function : Capitalize 1st letter in word 


Edit Date : 19-Jun- 

-82 


Edit Level : VI.0 


CAP:: 

MOV 

2(R5),R0 

; Address of string descriptor 


MOV 

2(R0), R1 

; Length of string 


MOV 

(R0), R2 

; First character in string 


MOV 

85,-(SP) 

; Save R5 


CLR 

R0 

; Scratch register 


CLR 

R5 

; Scratch register 


MOV 

R2,R4 

; Address of output string 


MOVB 

(R2)+,R3 

; Load up the address of 1st byte 


BR 

3$ 

; And branch to check for '\' 

1$: 

MOVB 

(R2)+,R3 

Put chars into a scratch register 


TST 

R0 

Just found a space? 


BNE 

2$ 

Yes so skip this check 


CLR 

R0 

Zap the flag 


CMPB 

R3,#40 

Look for a space 


BNE 

2$ 

None there so branch 


MOV 

#177777,R0 

Set flag to -1 


BR 

5$ 

And jump 

2$: 

TST 

R0 ; 

; Last Char a space 


BEQ 

5$ 

; No then skip convert 

3*: 

CMPB 

R3,#134 

1st letter a '\' ? 


BNE 

4$ 

No so continue 


CLR 

RO 

Else clear the flag 


TSTB 

(R3) + 

Pop a character 


INC 

R5 

Number of chars to pop 


BR 

6$ 

And complete the loop 

4$: 

CLR 

RO 

Unset the flag 


CMPB 

R3,#90.+32. 

Look for lower case z 


BHI 

5$ 

Too high then branch 


CMPB 

R3,#65.*32. 

How about lower case a 


BLO 

5$ 

Nope, then branch 


BICB 

#32.,R3 

Yep so change it 

5$: 

MOVB 

R3,(R4)+ ; 

Write out new string 

6$: 

SOB 

R1,1 $ ; 

For full length 


TST 

R5 i 

; Anything there 


BEQ 

END ; 

Nope then nothing to do 

8$: 

MOVB 

#40 , ( R4 ) ♦ ; 

; Get rid of the junk 


SOB 

R5,8$ ; 

; While some 

END: 

MOV 

(SP)+,R5 ; 

Restore R5 


RTS 

PC ; 

Exit subroutine 


.END 





.TITLE 
.IDENT 
.ENABL 
.PSECT 

KBNUM 
/VI.0/ 

LC 

KBNUM,R0.0VR 



Project 

: In-House 



Program 

: KBNUM.MAC 



Author 

: Fd Heinrich 



Function : Return keyboard number ar.d, optionally, Installation 


Edit Date : l6-Jun-8? 


KBNUM:: 

Edit Level : VI.0 



MOV 

#FIRQB,R4 

Address of FIRQB 


MCV 

#FQBSIZ/2,R3 

Length of FIRQB 

1 $: 

CLR 

(R4 )♦ 

Clear a word 


SOB 

R3.U 

While some there 


MOVB 

#16,0#FIRQB+3 

Function code for return error 


MOVB 

CALFIP 

#0,@#FIRQB+4 

Error # 0 (Installation name) 

Call RSTS 


CLR 

f>2(R5) 

Clear out integer 


MOVB 

f»#FIRQB+3, R3 

Get the keyboard number into R3 


BIC 

#‘C377,R3 

Only low order byte 


ASR 

R3 

Divide by 2 


MOV 

R3,#2(R5) 

Put it in linkage register 


CMPB 

#1,(R5) 

How many parameters passed 


BEQ 

3$ 

Only 1 then boogie 


MOV 

#34,R2 

Maximum bytes of data 


MOV 

0FIRQB+4,R3 

Location of data 


MOV 

4 (R5),R4 

Address of string header 


MOV 

(R4 ), R4 

Address of string 

2$: 

MOVB 

(R3)*,(R4)+ 

Get some work done 


SOB 

R2,2$ 

While something to do 

3$: 

RTS 

.END 

PC 

Snag return address off PC 


TITLE 

XCONTG 

IDENT 

/VI.0/ 

ENABL 

LC 


Project 

: In-House Development 

Program 

: XCONTG.MAC 

Author 

: Ed Heinrich 

Function 

: Make a full contiguous file non-contiguous 

Edit Date 

: 02-Aug-82 

Edit Level 

: VI.0 

Call Format 

: CALL XCONTG(CHANNEL*) 

Assembly Format 

: MAC XCONTG=[1,2]COMMON,XCONTG 


Program operation: XCONTG is called from a Basic Plus 2 module which 
passes the channel number on which the file to unset the contiguous bit 
is opened. XCONTG, reads through the job tables to obtain the FCB 
for the channel number, follows the FCB links to obtain the needed 
information on the file, and finally does a .UUO to unset the bit. 

If the .UUO was successful, CHANNEL* is returned as zero. If any 
errors were encountered CHANNEL* contains the error code. 

Note that the calling program must be privileged to execute the 
PEEKS of XCONTG. 


.GLOBL XCONTG 
.PSECT XCONTG,R0.0VR 


Begin by obtaining monitor tables 


JSR 

PC,CLNXRB 

; Go zero the XRB and 

FIRQB 

MOVB 

#UU.TB2,FIRQB+FQFUN 

; Set monitor tables 

part II function 

.UUO 


; And call RSTS 


MOV 

FIRQB+6,R0 

; Address of device name table 

MOV 

FIRQB+12.R1 

; Address of DEV0KB 


ASR 

R1 

; Divide it by 2 


MOVB 

#UU.TB1,FIRQB+FQFUN 

; Set monitor tables 

part I function 

.UUO 


; And do it 
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2 $: 


3$: 


MOV 

FIRQB+6,R2 

; Address of device count table 


SUB 

XRB.R4 



; Point to location in disk table 

MOV 

#DISK,R3 

; Address of storage area 


DEC 

R4 



; Take FIP unit zero into account 

an 

R4 

; A scratch register 


ASL 

R4 



; Point to offset - Since I used two 

PUSH 

R5 

; Push linkage register on the stack 


ASL 

R4 



; words we need to shift 2 bits 

CLR 

R5 

; And zero it 


ADD 

#DISK,R4 



; Point to device mnemonic 





MOV 

(R4)♦, FIRQB+FQDEV 


; Move it to the FIRQB 





MOVB 

(R4),FIRQB+FQDEVN 


; Move unit number in 

Save all configured disk devices in location 'DISK' 


MOVB 

#377,FIRQB+FQDEVN+1 

; Specify use unit number 





.UUO 




; The moment we've been waiting for . 

MOV 

R2.XRB 

; Put address of devcnt in XRB 


CLR 

@2(R5) 



; Clear the error flag 

• PEEK 


; And peek at it 


TSTB 

FIRQB 



; Did we do it? 

TST 

XRB 

; What is returned by .PEEK 


BEQ 

END 



; Yes, then return to whence we came 

BLT 

3* 

; Negative means there "Ain't none" 


MOV 

FIRQB,@2(R5) 



; Nope, #*@%$l, tell 'em why not 

MOV 

XRB.R5 

; Save the count 


JMP 

END 



; And return to give bad news 

MOV 

RO.XRB 

; If 'some' get devnam base address 







.PEEK 


; And peek at it to get name 












Internal 


S 

ubroutines 

MOV 

XRB,(R3)+ 

; Save disk mnemonic 







MOVB 

R5,(R3)+ 

; And Unit number 







CLRB 

(R3) + 

; Leave next byte blank 

CLNXRB: 

MOV 

#XRB,R0 



; Address of the transfer block 

INC 

R4 

; Count total number saved 


MOV 

#14/2,R1 



; Length of XRB 

DEC 

R5 

; Decrement count 

1$: 

CLR 

(R0) + 



; Zero a word 

BGE 

2$ 

; Do it for all units 


SOB 

R1 ,1$ 



; Until all done 

ADD 

#2, R2 

; Increment devcnt pointer 

CLNFQB: 

MOV 

#FIRQB,RO 



; Location of FIRQB into a register 

ADD 

#2, RO 

; And devnam for next lookup 


MOV 

#FQBSIZ/2,R1 



; Length of the FIRQB 

SOB 

R1,1$ 

; Do it for all possible disk devices 

U: 

CLR 

(RO )♦ 



; Clear a word at a time 





SOB 

R1 ,1$ 



; Check if we're done 


Get to File 

Control Block 

END: 

RTS 

PC 



; Universal return 




DISK: 

. BLKB 

20 



; A little storage 

JSR 

PC.CLNFQB 

; Go zap the FIRQB 







POP 

R5 

; Get back R5 from the stack 


.END 




; That's all he wrote 

MOV 

§2(R5),R3 

; Channel file was opened on 







ASL 

R3 

; Multiple by 2 







MOV 

#1010,XRB 

; Address of current job's JDB 







.PEEK 


; Point to it 







.PEEK 


; Now point at IOB for current job 







ADD 

R3,XRB 

; Add the channel number • 2 


.TITLE 

TTECHO 




.PEEK 


; And get the WCB for this channel 


.IDENT 

/VI.0/ 




MOV 

XRB.R1 

; Save address of WCB in R1 


.ENABL 

LC 




ADD 

#10,XRB 

; Offset to the FCB is 8 


.PSECT 

TTECHO,RO.OVR 




.PEEK 


; To get FCB for this file 

;♦ 






MOV 

XRB.R2 

; Better save this address or else 


Project 

: In-House 







Program 

: TTECHO. 

MAC 






Author 

: Ed Heinrich 



Load the 

FIRQB 


Function : Enables 

/ Disables terminal echo 





Edit Date : 26-May-82 






Edit Level : VI.0 




SUB 

#26, XRB 

; Point to filename word 1 


Assembly Format : MAC TTECHO 

= COMMON $,[P,PN]TTECH0 

.PEEK 


; And get it 







MOV 

XRB,FIRQB+FQNAM1 

; Put it in FIRQB at offset 10 


Call Format : FROM BP2 


CALL NOECHO for no echo 

MOV 

R2.XRB 

; Point XRB to FCB address 






CALL ECHO for echo 

SUB 

#24,XRB 

; Point to file name word 2 

; - 






.PEEK 


; See what's there 







MOV 

XRB,FIRQB+FQNAM2 

; Save word 2 in FIRQB 







MOV 

R2.XRB 

; Again restore the FCB address 

NOECHO: 






SUB 

#22,XRB 

; Point to extension 


MOV 

#3,@#XRB+0 ; 


Disable echo for caller 

.PEEK 


; Peek at it 


BR 

LOAD ; 


And 

do it up 

MOV 

XRB,FIRQB+FQEXT 

; Move the file type to the FIRQB 







MOV 

R2.XRB 

; Put back the FCB once again 

ECHO:: 






SUB 

#30,XRB 

; Now point to PPN 


MOV 

#2,@#XRB+0 


Re- 

enable echo 

.PEEK 


; Peeking 







MOV 

XRB,FIRQB+FQPPN 

; And load it in at FIRQB ♦ 6 

LOAD: 

CLR 

§#XRB+2 


Only on callers terminal 





CLR 

@#XRB+4 


No 

bytes to send or force 

MOVB 

#UU.FIL,FIRQB+FQFUN 

; Set Function code 


MOVB 

#24.,@#XRB+6 


Channel 12. only 

MOVB 

§ 2 ( R5),FIRQB+4 

; Channel number file opened on 


MOVB 

#2,@#XRB+7 


Handler index for terminal 

MOVB 

#32..FIRQB+5 

; And subfunction to unset contiguous 


CLR 

@#XRB+10 


Zap 

i the rest of the XRB 

MOV 

R2.XRB 

; Address of the FCB 


CLR 

@#XRB+12 


As good programming would dictate 

SUB 

#4,XRB 

; Point to FIP unit number 


CLR 

@#XRB+14 


Until all done 

.PEEK 


; And get it 


.SPEC 



And 

; process our request 





RTS 

PC 


Return to whence we came 


Determine D 

i s k Unit 


.END 



So simple yet useful 


f 



THE PROGRAMMERS PRODUCTIVITY UTILITY 

Makes the most of your VT-100 Series Graphics Capability 


•Cursor Movement 
•Line Sizing 
•Erasing 

•Screen Modes & Scrolling 
•Macro Assembly Coded 

Callable from BASIC 


•Character Attributes 
•Tab Sets 

•Auxiliary Keyboard Setting 

•Graphic Macros 

•Runs on RSTS/E & RSX11M* 

+ 2 & FORTRAN Routines 



Data Pacific, Inc. $395.00 

16102 N.E. 109th 

Redmond, WA ‘>8052 (206) 885-6554 
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Going from RSTS/E to VAX/VMS? 

MIGRAID3 


can help get you there. 

MIGRAID3 tm users with a rsts/e disk pack 
MOUNTED AS A “FOREIGN” VOLUME UNDER 
VMS CAN 

• TRANSFER RMS-11 FILES DIRECTLY TO 
VMS, READY TO USE 

• COPY ASCII STREAM FILES DIRECTLY TO 
RMS-32 SEQUENTIAL/VARIABLE FORMAT 

• TRANSFER VIRTUAL ARRAYS AND BLOCK 
I/O FILES, READY TO OPEN ORGANIZATION 
VIRTUAL (SUPPORTS ROSS/V FILE 
STRUCTURES) 

MIGRAID3 SUPPORTS RSTS/E WILDCARDS FOR 
BULK COPIES, AND OFFERS A COMPREHENSIVE 
DIRECTORY FACILITY TOO! 

$800 (U.S.) Single-CPU license; 

QDA/OEM terms available. 



COMPUTER METHODS CORPORATION 

P n ROY ^09 

MOORESTOWN, NJ 08057 
(609) 778-8440 


RSTS and VAX/VMS are registered trademarks of Digital Equipment Corporation. 
ROSS/V is a trademark of Evans, Griffiths and Hart, Inc. 
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RSTS PROFESSIONAL 

Box361 . Ft.Washington.PA 19034-0361 .(215)542-7008 

PAYMENT ENCLOSED for one year s subscription (6 issues). 

US: $35 / Canada & 1st class: $50 US / 

All other countries, air mail: $60. payable in US dollars. 

BILL ME for one year's subscription (6 issues). 

US / Canada or 1st class / Foreign. 


Please send BACK ISSUES circled: V.l. 

□ $10 per issue enclosed. v 2 - 

□ Bill me for $12.50 per issue v2. 

*1 V.2. "3 

*1 V.2. "4 

*2 V.3. *1 

V.3. *2 
V.3. "3 
V.3. M 

V.4. "1 V.4. *4 V.5. *1 
V.4. *2 V.4. *5 

V.4. *3 V.4. "6 

Send me a RSTS PRO 
Tee Shirt - s 6.95 

E @ 

E 

[xl| (Adult Sizes Only) 


Name _ 

Address - 


Suite 


City/State/Zip-—-- 

Country--Phone ( )- 

FREE CLASSIFIED AD WITH SUBSCRIPTION!! 

Your first 12 words are absolutely FREE, only $1 00 per word thereafter 

SPECIAL 

All 16 Back Issues for $100. Payment with order. 




V5.2 


CALC.BAS 

By Craig Goodrich. Bechtel Power Corp.. Gaithersburg, MD 


01 


EXTEND 


T F. M P L T 


FILE NAME: 

CALC.BAS 

REVISION: 1.1 

21-Jan-82 

CREATION: 

21-Jan-8? 

AUTHOR: 

CGoodrich 

M 0 D I F I C 

A T I 0 N 

V/E DATE 

PRGMR 

PROGRAM 

D E S C 1 

Allows use of 

terminal as 


(SYSTEM NAME) 


CG 

Bechtel Power 


HISTORY 

PURPOSE 


Parsing 4 evaluation algorithms based on ch.3 of 

McKeeman, Horning, 4 Wortman, "A Compiler Generator" 
(Prentice-Hall 1970) 


Requires B* or B*2 RTS with L0G10O, SIN(), ATN( ) functions. 

CCL entry at line 30000 with optional /n switch, where n is 
the number of decimal places to display. 

This software is copyrighted by Bechtel Power Corp. 

and is provided to the RSTS users' community 
for its use without charge, provided that 
its source is noted in any copying hereof. 

No commitment whatever to the support or reliability 
of this software is hereby made. 

1/0 CHANNELS 

CHANNEL USED FOR: 

•• NONE •• 


VARIABLE DEFINITIONS 
VARIABLE DEFINITION 


FUN.CTI0NS AND SUBROUTINES 


LINE FNCTN NAME DESC 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


900! 



Dimension 

Statements 


DIM REG.(32*) 



, REFRESH*/16*) 1 

Cursor ctl strings 

I 


Storage registers 

\ 

DIM WEIGHT.*(2*.128*) I 

Operator precidence/Jump table 

\ 

DIM STACK.*(k8*),IN.*(48*) ( 

CO 

8 


I For 

reverse-polish conversion routine 

\ 

DIM PROC.STK.(16*) I 

Evaluation stack 

\ 

DIM FETCHED*(16*) 1 

Address-Value flag 


9991 


Start of Program 


4 

4 

A 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


1000 PROGID*="CALC 1.1" ! version for printing; 

\ PRINT IF CCPOS(0*) I clear cursor if left in middle 

\ Z$ = SYS(CHR$(6$)+CHR$(-7*)) I Ctrl c trap 

! 

\ ON ERROR GOTO 19000 ! error trap. 

\ PRINT PROGIDt, TIME$(0*), DATE$(0*) UNLESS CHAIN.IN* 

! identify program. 

\ START.T = TIME(1*) 

! 

\ PLACES.* = *»* UNLESS PLACES.* 

I 

\ GOSUB 18070 

\ P.US = "###,###,###,###.########" 

I 

ZS = LFFTCP.US, INSTRd*. P.U$,".")) ♦ STRING $( PLACES.*, ASCII("#")) 
\ LSET P.US = Z$ 

! Pick how many places 

\ GOSUB 10100 I Init parser table 

\ GOSUB 18050 IF SCOPE.* I Init cursor ctl 

\ IN.POSS r FNCURS0R. $(20* ,*»* ) ♦ ER.EOLS IF SCOPE.* 

\ DSP.STGS r FNCURSOR.SC?^*,?*)♦ER.EOLS IF SCOPE.* 

\ GOSUB 15000 ! Init display 

\ PRINT SCR.INITS IF SCOPE.* 

\ PRINT IN.POSS; 

! 

1100! 

! 

! Open Files 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


Page 62 


RSTS PROFESSIONAL. April 1983 























Everythin g. 


LOCK-11 is a system security and management 
package for RSTS. 

LOCK-11 gives ydu absolute control of access by 
keyboard or user-1.D. 

LOCK-11 provides dn optional MENU environ¬ 
ment that keeps non-privileged users where they 
belong. 


LOCK-11 offers the system manager powerful 
surveillance utilities that actually improve thruput. 
LOCK-11 is very well documented, supported and 
enhdnced reguldrly. 

LOCK-11 is available right now. Circle the response 
number below for a full set of documentation, or 
call 215-364-2800. 





CIRCLE 12 ON READER CARD 





I 

20001 
! 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

90001 


Mainline 


Processing 


PRINT IN.POSI; 

INPUT Z* 

IN.$ = CVT**(Z$,-1) 

PRINT DSP.STG$+IN.$; IF SCOPE.! 


GOSUB 12000! 
GOSUB 10300! 
GOSUB 102001 
GOSUB 11600! 
ZlS = 0! 
GOSUB 130001 


Fix multi-character operators 
Prune & store constants in input string 
Convert input expression to polish notation 
Evaluate the postfix string 

Display 


PROGRAM 


GOTO 32750 
to end 


0000! 


Programmer 

and 


Defined Functions 
Subroutines 


& 

& 

A 

A 

A 

A 


0100! 


\ 

\ 

! 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

! 

I 

10131! 
! 


10230! 

! 


10300! 

! 


Initialize Tables to determine precidence 

IPT.S = OS 
STK. S = IS 
JMP.S = 2S 

WEIGHT.KSTK.S, ZS) = 16S FOR ZS = ASCII("A") TO ASCII("Z") 

WEIGHT.S(IPT.t, ZS) = 15S FOR ZS = ASCII("A") TO ASCII("Z") 

WEIGHT.S(STK.S, ZS) = 16S FOR ZS = ASCIICO") TO ASCII("9") 

WEIGHT.S(IPT.S, ZS) = 15S FOR ZS = ASCII("0") TO ASCII("9") 

READ Z$ UNTIL Z$ = "“TBLDAT”" 

READ Z* 

UNTIL Z$ = "••ENDTBL**" 

READ VSS.VIS.JPS I Stack val, Inptstr val, Jump tbl 

WEIGHT.S(STK.S,ASCII(Z$)) = VSS 

WEIGHT.S( IPT.S.ASCIH ZD) = VIS 

WEIGHT.S( JMP.S,ASCII(ZD) = JPS 

READ Z$ 

NEXT 

Operators have usual meaning. S = unary L0G10(), #=arctan,|=sin 

Operator, stack weight, input str weight, Jump table 

DATA "••TBLDAT”" 

., 16 , 15,0 
♦ ,**,3,1 
-,*»,3,2 
•,6,5,3 
/.6,5,« 

"‘",8,7,5 
(,-7,32,0 
), -7 , -7 , 0 
=, 2 , 1,6 
S,1H,13,7 
1 U, 13 ,8 
$,in, 13,9 

"‘",-32767,-32767,0 

"••ENDTBL ,# " 

RETURN 

Convert input expression to polish notation 


STACK.S(0S) = IS \ STACK.S(IS) = ASCIIC""") 

IN.$ = IN.$ ♦ "-" 

OUT.S(OS) = OS 
SPS = IS 
OPS = os 

CHANGE IN.$ TO IN.S 
FOR IPS = IS TO IN.S(OS) 

IF WEIGHT.S(STK.S,STACK.S(SPS)) < WEIGHT.S(IPT.S,IN.S(IPS)) 
THEN GOSUB 10210 
ELSE 

IF WEIGHT.S(STK.S,STACK.S(SPS)) > WEIGHT.S(IPT.S,IN.S(IPS)) 
THEN GOSUB 10220 
ELSE 

IF WEIGHT.sJsTK.S,STACK.S(SPS)) = WEIGHT.S(IPT.S,IN.S(I PS)) 
THEN GOSUB 10230 

NEXT IPS 

CHANGE OUT.S TO OUT.* 

PRINT "ERROR! SP=";SPS IF SPS <> OS 
RETURN 

Stk < Ipt 

SPS = SPS ♦ IS 

STACK.S(SPS) = IN.SC IPS) 

RETURN 

Stk > Ipt 

OPS = OPS ♦ IS 
OUT.S(OS) = OUT.S(OS) ♦ IS 
OUT.S(OPS) = STACK.!(SPS) 

SPS = SPS - IS 
IPS = IPS - IS 
RETURN 

Stk = Ipt 

SPS = SPS - IS 
RETURN 


Prune A store constants in input string 
Starts at end of REG.() array A moves down 

Note: the "registers" are referred to as 

REG. (ASCII("A ... Z") AND 31*) 
rP is always set to PI. 


A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 


I Numerics (constants) in the input expression are loaded starting A 

I in rZ and working downward, so it is possible that a A 

! sufficiently complex expression might impinge into the A 

I "user" area rA—rM. No check for this is performed. A 

I 4 

C.PTRS = 27S ! Init constant pointer A 

\ REG.(ASCII("P") AND 31*) * PI 4 

I 4 

\ TMP.ND IN.2$ r "" ! Init tmp strings A 

I A 

\ FOR IS = IS TO LEN(IN.I) A 

\ CH.$ = MID(IN.$,I*,1*) A 

\ IF FNNUMERIC.S(CH.I) A 

THEN TMP.N* = TMP.N$ ♦ CH.$ A 

ELSE A 

IF LEN(TMP.NI) A 

THEN A 

GOSUB 11320 A 

ELSE A 

IN. 2 $ = IN.2$ CH. ) 

10305 NEXT IS 4 

\ CH. $ = "" A 

\ GOSUB 11320 IF LEN(TMP.NI) A 

\ IN.$ = IN.2$ A 

\ RETURN A 

I 

11320! Store the numeric A 

! A 

C.PTRS = C.PTRS - IS A 

\ REG. (C.PTRS) = VAL(TMP.ND A 

\ IN.2$ = IN. 2 % ♦ CKR$(C.PTRS OR 6^*) ♦ CH.« A 

\ TMP.N$ = "" A 

\ RETURN A 

I * 

\ DEF FNNUMERIC.*(Z$) = (INSTR(1*,"0123^56789.", ZD <> OS) A 

1 

11600! 4 

! Evaluate the postfix string A 

! A 

I A 

PSP* = -IS I Processing stack pointer A 

\ MAT FEfCHEDS = ZER I Zero fetched flags A 

\ FETCHED!(OS) =0* A 

\ CHANGE OUT.$ TO IN.S A 

! A 

\ FOR IPS = 1* TO IN.S(OS) A 

\ ZS = WEIGHT.S(JMP.S,IN.S(IPS)) A 

\ IF ZS = OS THEN GOSUB 11650 A 

ELSE A 

ON ZS GOSUB A 

11710 A 

, 11720 A 

, 11730 A 

, 117*10 A 

, 11750 A 

, 11760 A 

, 11770 A 

, 11780 A 

, 11790 

11605 NEXT IPS A 

I 4 

\ RESULT., REG.(ASCII("T") AND 31S) = FNFETCH.(OS) A 

I 4 

\ RETURN A 

I A 

\ DEF* FNFETCH.(ZS) A 

\ IF FETCHEDS(ZS) A 

THEN FNFETCH. = PROC.STK.(ZS) A 

ELSE A 

Z1S = PROC. STK. (ZS) A 

\ FNFETCH.,PROC.STK.(ZS) = REG.(Z1S AND 31S) A 

\ FETCHED!(ZS) = -IS 

11616 FNEND A 

! 

11650! Put ascii val of pointer into processing stack A 

I A 

PSPS = PSPS ♦ is A 

\ PROC.STK.(PSPS) = IN.S(IPS) A 

\ FETCHEDS(PSPS) = OS 4 

\ RETURN 4 

! 

117001 Fetch operands — 11700 for 2 operands, 11705 for 1 A 

! 4 

OP.2. s FNFETCH.(PSPS) 4 

\ PSPS = PSPS - IS 4 

! 

11705 0P.1. = FNFETCH.(PSPS) 4 

! 4 

\ RETURN A 

! 

11710! ♦ Add A 

GOSUB 11700 A 

\ PROC.STK.(PSPS) = 0P.2.+0P.1. A 

\ RETURN 4 

! 

11720! - Subtract 4 

GOSUB 11700 4 

\ PROC.STK.(PSPS) = OP.1.- OP.2. A 

\ RETURN 4 

! 

11730! • Mul & 

GOSUB 11700 & 

\ PROC.STK.(PSPS) = OP.2.*OP.1. & 

\ RETURN & 

! 

117**0! / Div & 

GOSUB 11700 A 

\ PROC.STK.(PSPS) = OP.1./ OP.2. A 

\ RETURN A 

! 

11750! * Exponentiation A 

GOSUB 11700 A 

\ PROC. STK. (PSPS) s OP.Id OP.2. A 

\ RETURN A 

! 

117601 = Assignment A 

GOSUB 11705 A 

\ PSPS = PSPS - IS A 

\ Z1S = PROC.STK.(PSPS) A 

\ REG.(Z1S AND 3IS), PROC.STK.(PSPS) = OP.1. A 

\ FETCHEDS(PSPS) = -IS A 
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Only show 1st 13 registers 


\ Z1 % = Of IF Z1* > (13% OR 6H*) I 

\ GOSUB 13000 I Display value 4 

\ RETURN 4 

I A (perhaps unexpected) consequence of the algorithms & 

I used in this program is that assignment statements may & 

I be embedded — e.g A=P»(C=D/2) is perfectly legal. It 4 

I will assign rD/2 to rC and rP*(rD/2) to rA. BLISS also 4 

! has this facility, according to rumor. 4 

I 

117701 * Log 10 4 

GOSUB 11705 4 

\ PROC.STK.(PSPS) = LOCI0(OP.1.) 4 

\ RETURN 4 

! 

117801 0 Atn (deg) 4 

GOSUB 11705 4 

\ PROC.STK.(PSPf) = FNDEG.(ATN(OP.1.)) 4 

\ RETURN 4 

I 

117901 $ Sin (deg) 4 

GOSUB 11705 4 

\ PROC.STK.(PSPf) = SIN(FNRAD.(OP.1.)) 4 

\ RETURN 4 

I 4 

\ DEF FNRAD.(Z.) * (Z./ 36 O.)«2.»PI 4 

\ DEF FNDEG.(Z.) = (Z./(2*PI))»360. 4 


120001 
I 

\ 

\ 

\ 

\ 

I 

\ 

! 

130001 


\ 

13099 

! 

15000! 

! 


\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

\ 

! 

180001 

! 

! 

! 

! 

! 

18050! 

! 


! 

\ 


! 

! 

! 

I 

! 

I 

\ 

\ 

\ 

\ 

! 

\ 

\ 

\ 


Fix multi-character operators 

Z* = INSTRdS, IN. $, "••") 

WHILE Z* 

IN. $ = LEFT( IN. $, Z% -1*) ♦ »*» ♦ RIGHTUN.I.ZS ♦ 2S) 
ZS = INSTR(1S, IN.$, "••") 

NEXT 


Display 

IF NOT SCOPE.S THEN 

PRINT USING SPACEK20S)*"! ="*P.U$, CHR$( Z1S) , PROC. STK. ( PSPS) 
ELSE 

PRINT USING REFRESHKZ1? AND 31*), PROC. STK. (PSPS) 

PRINT IN.POSS; 


Display 

RETURN UNLESS SCOPE.S 
SCR.INITS = CLR.SCRN* 

-•/ () Operators have usual meaning. S = unary L0G10O, 0=arctan,|=sin " 
CHR$(13) ♦ CHR$(10) + " Registers A-L may be set & used." 

♦ " “Z to exit." 

CHR$(13) ♦ CHR$(10) ♦ " rP = pi" 

CHRK 13) ♦ CHRK 10) ♦ " Latest result " 

CHR$( 13 ) ♦ CHRK10) ♦ " is always stored" 

CHR$(13) ♦ CHR$(10) ♦ " in rT." 

FOR IS = ASCII("A") TO ASCII("M") 

PTS = IS AND 31S 

COL.S = HOS ♦ (25S*-(IS>70S)) 

LIN.S = (PTS)«3S 

LIN.S = (PTS-6S)*3S IF PTS > 6S 

SCR. INIT$ = SCR. INIT$ ♦ FNCURSOR. KLIN.*, COL. *)+CHRK I*) 

LIN.S = LIN.S ♦ IS 

REFRESHK PTS) = FNCURSOR.KLIN.*,COL.*-14*) 

♦ P.U* 

NEXT IS 

REFRESHS(OS) = IN.POS$ ♦ CHR$(10S)♦SPACEK 15S ) ♦ P.U$ 

RETURN 


Standard subroutines and functions go here 
in NRTRV?-based programs because 
of DB/2's bunnybrained use of high 
line numbers 


Useful constant strings 

For VT52 screen control 

ESC. $ = CHRK155S) I Escape 

DEF FNCURSOR. $(LNS ,COLS ) = ESC. $+"Y"-*-CHR$( 128S OR 31S + LNS) 

♦CHR$(128S OR 31S+COLS) 

Direct cursor addressing 

PRINT FNCURSOR. KLINES,COLS ) ; to position cursor 

128S bit set to avoid problems with cursor 

esc seq in print-using strings, since 
chr$(31S ♦ nS) = "#" v/e 1.2 15-Jan-82 eg 

C.HOME.$ = ESC.$ ♦ "H" ! Home cursor 

ER.E0S$ = ESC. $ "J" I Erase to end of screen 

ER.EOLI = ESC.$ ♦ "K" I Erase to end of line 

CLR.SCRN* = C. HOME. $ ER.EOS* I Home Erase screen = Clear 

FIP.* = CHRK6*) +CHRK 16% ) ! FIP Terminal call 

ESC.SEQ* = FIP. $ ♦ STRINGK2S,255S)+STRING*(17*,0*)+CHRK 255S) 

NO.ESC.SE0$ = LEFT(ESC.SEQS.21S)+CHR$(128S) 

To set ESC SEQ characteristic, "Z$ r SYS(ESC.SEQI)" 
likewise NO..' 


\ 


RETURN 
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8070! 


Utility 


0 B . B A S 

1.3 Get TODAY.S and KBM.$ CG Sep 82 

1.2 Enhance to get terminal characteristics CG Aug 81 

1.1 Author CGoodrich Bechtel Jul 81 

subroutine to return data about current Job: 

DET.f = Boolean (Job is detached) 

JOB.$ = Job # 

KB.f = Job kb# 

KB.WIDTH.* = Current width setting of Job kb 
KBM.) = Job KBM name 

PK.* = Boolean (Job kb is pseudokeyboard) 

PRJ.S = Project 
PRG.* = Programmer # 

RTS.$ = Run-time system name 
SCOPE.* = Boolean (Job kb is a tube) 

TODAY.* = Today in RSTS format 


& 

4 

4 

& 

4 

4 
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4 

4 

& 
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4 

4 
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4 

4 
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. . . continued on page 69 


PDP-11 

SPSS" makes data analysis simple for DEC 
PDP-11 users! Now PDP-11 users can enjoy all the 
benefits that have made SPSS the world's largest 
selling Data Analysis System. It's easy to use and 
learn, thanks to its response to English language 
commands and comprehensive documentation. 
It's also sophisticated, giving researchers and 
business managers alike a full range of capabili¬ 
ties for statistical analysis and report generation. 

For full information, call or write SPSS today: 
Sue Phelan, SPSS, Inc., 444 N. Michigan Avenue, 
Chicago, IL 60611, 312/329-2400. 



c Copyright 1981 SPSS, Inc ANALYSIS 

MADE SIMPLE 


SPSS-11 runs on DEC LSI-11 through PDP-11170. Compatible with DEC Systems RSTS, 
RT-11, RSX-11M, IAS/S&H Computer Systems TSX. 

CIRCLE 123 ON READER CARD 


INTERFACES LIMITED 

... A Step Ahead 

► Interfaces Limited carries DEC* Systems and supplies 

► Interfaces Limited will help modernize and increase 

office efficiency. 

^ Interfaces Limited will advise on the proper computer 
equipment and programs. 



SYSTEMS SALES 

11/23 W/128K RLV21-AK RL02-AK VT102 RT11 license @ $17,700 00 

11/23 plus w/256 RLV22-AK RL02-AK VT102 CTS 500 license @ $19,500 00 

11/24 w/256 RLV11-AK RL02-AK VT102 CTS 500 license @ $25,200.00 

VAX 11/750 1 MEG. RM03. TS11-CA. TU58. DZ11A. LA38 VMS Operating System. 
DIB0L/C0B0L Program Generator (Used) CALL 


TERMINALS (new) 

VT100-AA 

$1320.00 


Printer (new) 

LA120-AA 

$1925.00 

VT101 

$ 950.00 


LA 120-BA 

$1950.00 

VT102 

$1285.00 


LA120-RA 

$1690.00 

VT 131 

$1340.00 


LA 100 

CALL 

VT125 

CALL 


LA34 

$ 750.00 

DZ11-B 

$1200.00 

OPTIONS 

M7819 

$1000.00 

DZ11-E 

$2700.00 


DH11-AD 

$4500.00 


412-941-1800 ddQ 
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DIBOL and MACRO: 
Oh, Yes, You Can! 

By M. Christopher Getting. JBM Group, 

King of Prussia, Pa., and 

Philip G. Anthony. Fidelity Bank. Philadelphia. Pa. 

Q: What language is used at more PDP-11 installations 
than any other? 

A: DIBOL. according to DEC'S published figures. 

Q: What language has the least access to PDP-11 
systems and gets the least support of any language distrib¬ 
uted by DEC? 

A: Here's a hint. Its name starts with "D" and ends with 
"L." and it's used at more PDP-11 installations than any other. 

The fact is that DIBOL has major advantages for com¬ 
mercial applications over any other language DEC supports. 
Its predefinition of fields—and the ability to preload those 
fields—reduces CPU utilization at run time to well below 
that of BASIC-PLUS or BASIC-PLUS-2. Its record handling 
gives wide flexibility that other languages achieve only by 
using RMS, with its high CPU overhead, waste of disk space, 
and gigantic program size or complicated overlay structure. 
Program development with DIBOL takes less time than with 
BASIC, BP2, and DEC COBOL in DEC'S own tests with ex¬ 
perienced programmers. 

Yet DIBOL has been the Ugly Duckling so far as DEC has 
been concerned. For years. DEC'S listings of languages 
available on PDP-1 Is have excluded DIBOL. Most local DEC 
support centers don't have even one software specialist who 
speaks DIBOL. And perhaps most annoying to DIBOL users, 
there is no way from within DIBOL to perform functions 
that are taken for granted by BASIC and BP2 users, such as 
directory lookups, assigning and reassigning devices, reat¬ 
taching to a terminal after a detach, even getting the job's 
own CPU time, device time, and KCTs for accounting pur¬ 
poses. (Admittedly, DEC is getting better about this, 
especially with V4.5. But they've got a way to go before 
they provide anything near the range of BASIC-PLUS's SYS() 
calls.) 

And DEC doesn't want DIBOL users to do it for 
themselves, using MACRO-11 subroutines to enhance the 
language and provide hooks into the system. There's no 
equivalent to the section in the BASIC-PLUS-2 RSTS Users 
Guide that details BP2's calling sequences and internal 
structure. One knowledgeable Deccie said frankly that 
Digital just doesn't want to be put in the position of sup¬ 
porting a "nonstandard” language interface. 

Well, it really isn't any more difficult under DIBOL than 
it is under BP2. In fact, it’s simpler, since all DIBOL fields 
and literals are just alpha strings. Decimals are disting¬ 
uished solely by the fact that the only characters DIBOL per¬ 
mits in them are the ASCII characters "0” through "9" and 
"p” through "y" the latter only in the rightmost byte to in¬ 
dicate that the number represented is negative. More about 
literals in a little bit. 


Here's how it's done. Arguments are pushed onto a 
stack referenced by R5, just the way they are in BP2 and 
FORTRAN. Unlike those languages, though, DIBOL reverses 
the argument stack — information about the last argument 
is found lowest on the stack, then the next to last, and so on 
until the first argument is reached (see Figure 1). 

In detail, the lowest word on the R5 argument stack, 
the one R5 points to, is the number of arguments times two 
(there are two words of information for each DIBOL argu¬ 
ment). Next is the address of the first byte of the last argu¬ 
ment. Then comes the length of the last argument. If the 
argument is an array name, the passed length is the length 
of one element of the array: number of elements is not 
available. The high-order bit, bit 15. of this word is turned 
on to indicate a literal rather than a field or record handy to 
make sure you're not writing into a literal, which could give 
some surprising results. This convention explains the length 
limitation on DIBOL alpha fields. The sequence of address- 
length is repeated for each argument back to the first. 

With this information, it's relatively easy to write a 
macro to retrieve any desired argument. The one we use is 
shown in Figure 2. It places the address of the first byte of 
the DIBOL argument in RO by default and the length in R1. 
but this can be changed if those registers are in use by mere¬ 
ly specifying two other registers in the macro call. The 
length is moved into R1 last to provide easy error checking 
against writing into a literal: The instruction 
BMI LABEL 

immediately following the macro transfers program execu¬ 
tion to LABEL if a literal has been passed. 

If one of the passed arguments is decimal, a further 
step may be necessary: conversion from ASCII to a binary 
value that MACRO-11 can handle on input, or from binary to 
ASCII on the way out. Such a conversion routine would be 
necessary, for instance, in a MACRO-11 subroutine to return 
the size of the last opened file. Fortunately for those of you 
who don't want to write your own, the system provides a 
series of conversion routines in SYSLIB.OLB. which is in¬ 
cluded on the distribution. They're detailed in the 
IAS/RSX-11 System Library Routines Reference Manual. 
One and two-word binary values are converted to ASCII via 
$CBDMG and $CDDMG, while an ASCII string can be 
transformed to one or two-word binary using $CDTB and 
.DD2CT. All of these require the programmer to keep track 
of negatives: they were designed for terminal input and out¬ 
put, not to help DIBOL users. 

With all this in mind, we re ready to start interfacing 
MACRO-11 and DIBOL. GLEN in Figure 3 is a quick 
subroutine that emulates the BASIC/BP2 LEN function. It 
takes two arguments: the field to be examined, which may 
be alpha, decimal, or literal: and the return field, which 
must be decimal, five bytes long because of the demands of 
$CBDMG. Such a subroutine can be called from within a 
DIBOL subroutine to determine whether a passed field is 
long enough to contain the information to be returned. All it 
does, of course, is examine the data on the R5 stack, convert 
the length word to ASCII, and pop it into the second- 
argument field. 
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Error handling may look confusing at first, but it sim¬ 
ply traps the routine to the appropriate DiBOL error number 
— in this case Error 6. "Incorrect number of arguments," or 
Error 8, “Writing into a literal" — and lets the DIBOL RTS or 
RESLIB issue its message. It then bombs the program with 
EMTs 50, to switch to the user's default RTS, and 46, to exit 
to the system 
default RTS if 50 
fails. Care should 
be taken with 
DIBOL error handl¬ 
ing. though. Some 
errors can't be 
handled this sim¬ 
ply: specifically, 
we've had trouble 
with Error 31, 

"Argument wrong 
size." It may be 
worthwhile to 
write your own 
"fatal error" 
handler that puts 
out your own error 
message (using the 
next subroutine) 
and issues EMTs 46 
and 50. 

Hooking into 
RSTS isn't very 
much more dif¬ 
ficult than this. The 
RSTS System Direc¬ 
tives Manual pro¬ 
vides full informa¬ 
tion on calling se¬ 
quences for RSTS 
EMTs and .UUO 
subfunctions, 
along with a cross 
reference to the 
corresponding 
BASIC-PLUS func¬ 
tion or SYS() call. In 
most cases, all 
that's necessary is 
to load the ap¬ 
propriate bytes or 
words of FIRQB or 
XRB, as shown in 
the manual, and 
then issue a 
MACRO-11 EMT instruction. Figure 4 shows a slightly ab¬ 
breviated version of one of our favorites, PRINT, a simple 
subroutine to permit output on Channel 0 — always open 
but normally forbidden to DIBOL users. We've used this one 
to decrease program size by not requiring an I/O buffer in 
memory for terminal output when the calling program is 
only issuing informational messages at various points in 


processing. 

Finally, a couple of caveats. While PRINT is a perfectly 
usable subroutine, it has a limited purpose. In general, 
MACRO-11 subroutines should not be used for I/O, since 
there may be interference from DIBOL's own I/O 
mechanisms — which are admirably suited to their purpose 

in any case. 
Specifically, we've 
found that a sub¬ 
routine to read on 
Channel 0 produces 
somewhat undesir¬ 
able results. 

Second, DIBOL 
itself uses the first 
1000-octal bytes of 
an executing pro¬ 
gram for its own 
purposes. Thus, a 
.UUO function that 
returns informa¬ 
tion in FIRQB or 
XRB will operate 
properly, but the 
information may 
no longer be there 
if a DIBOL state¬ 
ment intervenes 
between the 
MACRO 
subroutine's asking 
RSTS for the data 
and the informa¬ 
tion’s being re¬ 
turned. 

Third, users 
should be very care¬ 
ful about calling 
DIBOL subroutines 
from a MACRO 
subroutine. It's 
completely possible 
to set up a stack 
within a MACRO 
program that 
would appear valid 
to the called DIBOL 
subroutine, but 
other structures 
within DIBOL may 
become corrupted 
in the process. 

Last, a general-purpose warning: the DIBOL argument 
stack structure we've described is not supported by DEC 
and may never be. It's unlikely that Digital will change 
things around at this late date — they'd have to rewrite a 
lot of code to do it — but they've done flaky things before 
now and mayjust decide at some point to switch this too. In 
line with their current policy of making everything look like 


QUALITY 
SOFTWARE 
YOU CAN 
AFFORD! 

Yes! ERGO Consulting extends its fabulous introductory offer 
to provide you with: 


OPTIMIZATION: 

DDO, a fast, macro-written UFD placement and extension and 
file clustersize optimization utility that runs disk-to-disk or 
disk-to-tape with Backup* or Saver**. All for only $500.t. 


RECONSTRUCTION: 

DDR, a basic-l- source utility to examine the MFD/UFD file 
structure without FIP, to evaluate and/or repair corrupted disks, 
or check UFD/File fragmentation, for a mere $400.t 


7 - PLAYER SPACE BATTLE: 

CTREK, a multi-user space wars game where 2 to 7 players, 
each at their own command terminal, compete on a common 
battlefield to provide the utmost in games competition. A steal 
at $200.t 

ERGO Consulting 

P.O. Box 8508 
Fountain Valley, CA 92708 
(714) 968-2133 

‘Trademark of DEC. 

“Saver is an efficient file-structured backup program from (and trademark of) Data Pro¬ 
cessing Design. 

tPrices quoted are for orders received before May 31, 1983 and for 9-track magtape. 
Other media slightly higher. 
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VAX — even RSTS (what is DCL good for, anyway?) — it’s 
barely possible that they might make up their minds to 
“unify” calling procedures. If they do. they certainly won't 
alter the BP2 calling sequence — and that leaves them only 
one option. So while these routines have been checked out 
through DIBOL V4.5, there's no guarantee that V4.6 or V5.0 
will work the same way. Check out new releases for yourself 
before assuming that any user-provided MACRO sub¬ 
routines will still work. 

For all these warnings, we've found that MACRO-11 
subroutines enhance DIBOL's capabilities immensely. They 
provide the user with options that can simplify the hardest 
job in the business — commercial programming — and per¬ 
mit the fullest use of RSTS's capabilities to get the work 
done. Enjoy! 

! Length of argument 1 ! <— R5 ♦ 

- 2 • (R 5 ) 

! Addr of argument 1 ! 


Length of argument n 


Addr of argument n 


No. of arguments • 2 I <— R5 


FIGURE 1. Layout of the DIBOL Argument Stack 

. NLIST 
;ARCD.MAC 

{MACRO-11 routine to extract the address 
{arid length of a DIBOL argument from the 
;R5 argument stack 

;ARGD takes one required argument and two 
;optional arguments: 

; ARON s Number of argument to return 

; RGO = Register for address of the 

; argument (default RO) 

; RG1 = Register for length of the 

; argument (default R1) 

{Since the length move is done last, the in¬ 
struction 

; BMI LABEL 

{transfers execution to LABEL if the argument 
;is a literal (to permit error trapping). 

{Copyright (C) 1982 JBM Group 

{This routine is made available free of charge 
;to the RSTS community, with no warranty, 

{express or implied, with inclusion of the 
{above copyright notice. The authors make no 
{commitment that the information contained herein 
;is now or will in the future be correct. How- 
;ever, it works on two PDP-lls running three 
{versions of DIBOL-11 under RSTS. 

;RSTS, PDP-11, MACRO-11, and DIBOL-11 are 
{proprietary trade names of Digital Equipment 
{Corporation. 


.MACRO 

ARGD ARGN, 

RG0 = R0, RG1 = R1 

MOV 

ARGN, RGO 


MOV 

( R5 ), RG 1 

;No. of arguments 

INC 

RG1 

;No. arguments ♦ 1 

ASL 

RG1 

{Times 2 for word 

ADD 

R5,RG1 

{End of list ♦ 2 

ASL 

RGO 

;Arg no. * 2 for word 

ASL 

RGO 

;2 words per argument 

SUB 

RGO, RG 1 

;RG0 contains a 



{negative offset 

MOV 

(RG1)+,RG0 

{Address of argument 

MOV 

( RG 1) , RG1 

{Length of argument 

. ENDM 

ARGD 


• LIST 




FIGURE 2. Macro to Return a DIBOL Argument 


.LIST TTM 
. NL 1ST TOC 
.ENABL LC 
.TITLE GLEN 
.IDENT /Ml.01E/ 

{Subroutine to return the length of a DIBOL 
{field. To use, XCALL GLEN(FLD,LEN), where 
;FLD is the field to be checked and LEN is 
;a five-byte decimal field (size is required 
;by $CBDMG) for returning the length. 

{Assemble with ARGD.MAC 



.PSECT 

SUBRI RO, 

I,LCL,CON,REL 

GLEN:: 

MOV 

RO,-(SP) 

{Save registers R0-R2 


MOV 

R1,-(SP) 



MOV 

R2,-(SP) 



CMP 

(R5),#4 

{Two arguments? 


BNE 

ERRARG 



ARGD 

#2 

{Get return field data 


BMI 

ERRLIT 

{Literal? 


MOV 

10(R5),R1 

{Length of passed argument 


MOV 

#-1,R2 

{Zero-fill flag for $CBDMG 


JSR 

PC,$CBDMG 

{Convert to ASCII 


MOV 

(SP)+,R2 

{Restore registers 


MOV 

(SP)+,R1 



MOV 

(SP) + ,RO 



RTS 

PC 

{That's itl 

ERRARG: 

TRAP 

6. 

{"Illegal number of arguments" 


BR 

ERRBYE 


ERRLIT: 

TRAP 

8. 

{"Writing into a literal" 

ERRBYE: 

MOV 

#402,RO 

{Address of FIRQB 


MOV 

#20,R1 

;No. of words in FIRQB 

10$: 

CLR 

(RO) + 

{Clear a word 


SOB 

R1,10$ 

{Loop back for next 


EMT 

50 

;. RTS 


EMT 

46 

{.EXIT (if .RTS fails) 


.END 

FIGURE 3. 

Subroutine GLEN 


LIST 

TTM 

NLIST 

TOC 

ENABL 

LC 

TITLE 

PRINT 

IDENT 

/.M1.01E/ 


{This subroutine prints a message using Channel 0, 

{thus saving I/O buffer space in a program when the 
{only interaction with the terminal involves print¬ 
ing informational messages. To use, XCALL PRINT(MSG), 


{where 

MSG is 

the message to 

print. 

{This 

example 

uses no error 

trapping. Assemble with 

{ARGD. MAC. 




.PSECT 

SUBRI RO,I 

,LCL,CON,REL 

XRB 

_ 

442 

{Address of transfer 




{request block 

CRLF: 

.BYTE 

15,12 

;Carr. ret., line feed 

PRINT: 

: MOV 

R0,-(SP) 

{Save registers R0-R2 


MOV 

R1,-(SP) 



MOV 

R2,-(SP) 



ARGD 

#' 

{Output string information 


BIC 

#100000,R1 

{Clear literal flag bit 


MOV 

#XRB,R2 

{Address of XRB 


MOV 

R1,(R2)+ 

{Length of output 


MOV 

R1,(R2) + 

;Again 


MOV 

R0,(R2 )♦ 

{Address of output 


JSR 

PC,WRITIT 

{Write it out 


MOV 

#XRB,R2 

{Now do the same with CRLF 


MOV 

#2,(R2)+ 



MOV 

#2,(R2)+ 



MOV 

#CRLF,(R2)+ 



JSR 

PC,WRITIT 



MOV 

(SP)+,R2 

{Restore registers 


MOV 

(SP)+,R1 



MOV 

(SP)4,R0 



RTS 

PC 

;Tha-tha-thafs all, folks! 

WRITIT 

: .REPT 

4 

{Clear remainder of XRB 


CLR 

(R2 )♦ 



.ENDM 




EMT 

4 

;RSTS .WRITE (see manual) 


RTS 

PC 

{Back to PRINT 


.END 




FIGURE 4. Subroutine PRINT 


f 
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CALC.BAS . . continued from page 65 


This function call lets you set up a temp filename & 

by simply calling It — e.g. SCRATCH* -- FNTMP. FILM "SCR") & 

OPEN SCRATCH* FOR OUTPUT AS . . . A 


TODAY.* = SWAPI(CVT**(MID(SYS(CHR*(6*)♦CHR*(-3*))• 271,2*))) 

Z* : CHRJ(6*)♦CHR*(26*)♦STRINGK28*,0*) I Set up FIP call string 
Z* : SYS(Z*) 

JOB.* = ASCI I(Z$)/2* 

PRC.* = ASCII(MID(Z*,21*,1*)) 

PRJ.* = ASCII(MID(Z*,22*,1*)) 

RTS.* r RAD*(SWAP*(CVT**(RIGHT(Z*,27*)))) 

♦ RAD*(SUAP*(CVT**(RICHT(Z|,29*)))) 

KBM.* = *RAD*(SWAP*(CVT**(RIOHT(Z*,23*)))) 

♦ RAD*(SWAP*(CVT**(RIGHT(Z*,25*)))) 

Note: The following checks for detached condition 
by looking at the 128* bit of the Job kb#. 

If the Job Is detached, flp 26 returns the 
one's complement of the kb#; therefore If 
there are no kb#s above 127 In the system, 
the 128 bit will indicate detachedness. 

RSTS 7.0 doesn't allow kb#s above 127 anyway. 

If future releases do allow KB128: (unlikely), 
this test may not be reliable. 

At present, anyway, the RSTS Programming Manual 
Is mistaken in sec. 7.3-2.2 where It asserts 
that you have to peek around (and therefore 
have privlledge) to determine detachedness. 

RSTS 7.1 — They've fixed It, but p.7-153 la 

misleading about byte 4 (you can't ask 
BASIC if It's negative). — CG l6-Mar-82 


KB.* = ASCII(MID(Z*,4*,1*)) 

DET.* = ((KB.* AND 1?8*) <> 0*) 

KB.* = 255* XOR KB.* IF DET.* I One-byte complement 

Z* s " " \ RSET Z* r "0" ♦ NUM1*(JOB.*) 

TMP.FIL* = Z* ♦ ".TMP" 

LOGIN will delete XXXXnn.TMP files where nn is the Job number — 
set up filenames as "cccc"*TMP.FIL* after calling this 
routine 


Terminal characteristics 
IF NOT DET.* 

Z* r CHR*(6*)♦CHR*(16*)♦CHR*(0*)♦CHR*(255*)♦STRINC*( 28* ,0*) 
Z* = 3YS(Z*) 

SCOPE.* : ASCI I (Mll’f Z*, 11* , 1* )) = 25S*) 

K3.WIDTH.* : ASCII{MID(Z|,5*.1*) - 1? 

PK.* r (ASCII(MID(Z*,19*,1*)) - 8*) 

RETURN 

DEF« FNTMP.FIL*(F*) 

G0SUB ie070 UNLESS LEN(TMP.FIL*) 

Z* : . 

LSET Z* = F* ♦ "0000" I Make sure len : 4* 

FNTMP.FIL* r Z* ♦ TMP.FIL* 

FNEND 


9000! 

ERROR TRAP HANDLING ROUTINE 


19005 E* = ERR\ E1S = ERL\ EUrLINE IF E*=28( 

I RECORD ERROR NUMBER, LINE IN E*,E1* 

19010 RESUME 32750 IF E* = 11* 

19020 IF E* = 28* THEN 

PRINT "*C Isn't very nice." 

\ Z* r SYS(CHR*(6*)♦CHR*(-7*)) ! Ctrl e trap 

\ SLEEP 5* 

\ RESUME 32750 

I 

19025 IF E* = 30000* 

THEN 

INPUT "Bad switch ~ Decimal places"; PLACES.* 

\ RESUME 30099 

! Generated In VAL at chain entry 

19030 PRINT "••SYNTAX ERROR**"; E*; 

\ SLEEP 5* 

\ PRINT CHR*(13*)♦SPACE*!H8*); 

\ RESUME 2000 

19099 PRINT' PRINT "•• ERROR •• I" 

\ PRINT •???■; IF PK.* I Signal BATRUN that an error has occurred 

PRINT RIGHT(SYS(CHR*(6*)♦CHR>(9*)♦CHR*(E*)),3*); 

"(";E»;") at llne";El*;"of ••;PROG ID*;■•■ 

\ PRINT "Abnormal "; \ STOP 

199991 

! STANDARD SUBROUTINES AND 

I FUNCTIONS 


300001 Chain Entry Point 

C.COM* r CVT**(SYS(CHR*(7*)), 255*) 

\ CHAIN.IN* = -1* 

\ Z* = INSTR(1*, C.COM*, "/") I Switch? 

\ IF Z* = 0* 

THEN 

PLACES.* = 4* 

ELSE 

PLACES.* : VAL(RIGHT(C.COM*, Z* ♦ 1*)) 

\ PLACES.* : 8* IF PLACES.* > 8* 

! 

30099 GOTO 1000 
I 

31C00I DATA STATEMENTS 


32750 PRINT CLR.SCRN* IF SCOPE.* 

PRINT PR0GID*,TIME*(0*); 

\ CLOSE Z* FOR Z* = 1* TO '2* 

\ PRINT USING " ####.# CPU seconds", (TIME(1*J-START.T)/10. 

I 

32767 END 




BACdtm)© can do it all! 


BAC into RTS / BAC into MAC / BAC into BAS 



BACmac is a unique software tool, running 
under RSTS/E, which provides the following 
conversions: 

■ translation from Basic-Plus "compiled" back to 
Basic-Plus source code (only the comments will 
be missing) 

■ translation from Basic-Plus into Macro source 
code, which compiled under RSTS runs faster 
than Basic-Plus 

■ translation from Basic-Plus into Macro source 
code which may be compiled under RSTS for 
execution under RT11 — a migration facility 

■ translation from Basic-Plus into a RUN-TIME- 
SYSTEM. Now you can write an RTS in Basic-Plus. 
The ideal solution to memory thrashing due to 
"multi-copy" applications programs. 

RSTS/E, RT11, Macro-11 and Basic-Plus are trademarks of Digital 
Equipment Corporation. 

Eastern Distributor: 

New England Micro Technology, Inc. 

P.O. Box 767 

Marblehead, Mass. 01945 
617/631-6005 


Western Distributor: 

Telecom Computer Systems, Inc. 

P.O. Box 03285 
Portland, Oregon 97203 
503/286-5122 


AD0SI 


Advanced Digital 
Office Systems 
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LETTERS to the RSTS Pro... continued from page 6 


Dear RSTS Man 

. . . continued on from page 36 

small buffers to contain the charac¬ 
ters being input and output. The fig¬ 
ures cited were 500 microseconds 
CPU time per character output. That 
sounds incredibly high to me, but I 
do not know all that is involved with 
terminal I/O under RSTS. 

We have a mixture of DZ’s and 
DH’s on our 3 machines (two 
11/70’s and one 11/45). For a while 
those on the programming staff 
who chose to do so and were also 
attached to a computer via a DH 
with its 30 character buffer, were 
allowed to run their terminals at 
9600 baud. Now management has 
decided that to avoid performance 
degradation, we all shall run at less 
than 9600 baud, preferrably 2400. 

Unfortunately EDT is my favorite 
editor and running it at low speeds 
is like driving a Ferrari through an 
endless school zone. I enjoy EDT 
so much that I’m using it to pro¬ 
duce this letter, even though I have 
WORD11 available to me. 

Our business is a small time¬ 
sharing service bureau and there¬ 
fore we are understandably disk- 
bound. How much of an affect 
does running terminals (and a 
small number of them at that) at 
high baud rates actually have? 
Could you also please explain the 
reaction between the CPU and 
DZ/DH on terminal I/O (especially 
regarding handling of interrupts)? 

Thank you very much. 

Hans Hazelton 
Confused Programmer 
Juneau, AK 

Dear Confused: DZ’s require the 
CPU for each character of both in¬ 
put and output. DH's on RSTS, re¬ 
quire service for each input char¬ 
acter, but only for every 30 charac¬ 
ters of output. DH’s could theoreti¬ 
cally avoid single character input, 
but then they would have to be sen¬ 
sitive to delimiters. To avoid that 
problem, the silo limit is set to one 
character. 

I have two recommendations: 

1) Sell your DZ’s and get DH's. 

2) Settle on 4800 for tubes as a 
good compromise. 

I have seen user satisfaction in¬ 
crease when changing from 9600 
to 4800 simply becuase the ‘stut¬ 
tering’ was eliminated. 


Thus overall we an elapsed-time saving of 
37.25% and a run-time saving of 54.75%. I 
trust that you will agree that statistics of 
this nature are worthwhile publishing. 

It would be ungracious of me not to state 
that I could not have accomplished this 
conversion operation without the active 
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Please find enclosed another “TECO’ 
photo — unfortunately not very clear, and 
probably in the U.S., anyway: “TECO 
MONO KOOL”. All sorts of paraphrasing 
is possible: 

“KEEP COOL WITH TECO”; 

“COOL TECO”; 

“TECO 

THE ONE TO KEEP COOL WITH”. 

Your magazine has been an invaluable 
aid for our small installation where the 
system manager has to be a “master” of all 
trades. However, many ideas have been 


support of Software Techniques Limited 
and their TASKIT product which de¬ 
compiles the .BAC programmes to create a 
.B2S programme which is then converted 
by CSPCOM and TKB into the RSX tasks. 

Jeffrey Seymour, Director 
Pegasus Computer Processing 
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gleaned from “RSTS Pro” for courses we 
run with our secondary students and even¬ 
ing adult classes, and to first keep things go¬ 
ing a bit better than otherwise would be 
possible. 

Hopefully I can persuade some of my 
students to get round soon to dropping you 
a line on some of the things they are doing 
with the help of RSTS/E. 

Bernard Halpin, Centre Manager 
BCC Computing Centre 
Bunbury, W.A. 



MEY 

loSEed off with 4 48 blorl s in use 

Job 7 IU,M] LP15 24-Jsr.-Hi 0iJ)9 Pn 

Svcteni RSTS 0?.2-04 PCP72C 

Run 1 j nip l 6 secniids 

Hei c ed i i n,e * 1 nonute 

Good <if Ir? ? i mon 

* * * 


Page 70 


RSTS PROFESSIONAL. April 1983 













* * * 


Thanks for the ‘T’ shirt. The “Novax II” 
is a device for interconnecting the switched 
to telephone network to a two-way radio 
circuit, half duplex over a single radio fre¬ 
quency. It has been advertised recently in 
amateur radio publications, and I have 
enclosed a copy of the ad. 

Perhaps the most exciting thing is that 
the ‘Novax II” is sold by C.D.C. (in this 
case, Current Development Corporation). 
When I first saw it, I thought maybe our 
friends from Minneapolis had figured out a 
way for me to emulate VMS on my 11/70! 

I enjoy your publication, and look for¬ 
ward to each and every issue. 

Paul E. Anderson, Vice President 
GALLO SALES COMPANY, INC. 


Introducing our Latest Model — NOVAX II 


SIMPLEX i DUPLEX 
AUTOPATCH 



NsVax 

Mosul CONNKTWN 


NOW TWO MODELS TO 
SERVE YOU BETTER 

YOUR OWN PRIVATE AUTOPATCH 

NOVAX interlaces your standard 2 meter. 220. 450. etc Base 
station and telephone, using a high speed scan switching tech¬ 
nique so that you can direct dial from your automobile or with 
your HT from the backyard or poolside — Automatically Easy 
installation transceivers, featuring solid state switching, offer best 
results Available interfaced with an ICOM 22U 


MATunta 
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This is the answer to the question! Seep. 32 
of Last Issue. 

* * * 


I would like to add my accolades to the 
many others who have stated their excite¬ 
ment over your magazine. 

In Volume 3, Number 3, September, 
1981 there was a program for a Corrupt 
Disk which saved us untold hours of work. 

We got an “Irrevocably Corrupt Disk” 
at approximately 3:00 p.m.; the local 
Digital software office was contacted. Their 
response was that only the boys in 
Massachusetts could recover the disk. RDC 
was contacted and they had no idea how to 
recover the information on our disk. 

“CORRUPT” was then remembered, 
located, run, and within one hour the cor¬ 
rupted directory structure was rebuilt. 

Keep up the good work and keep those 
programs and articles coming. As a final 
thought, this magazine should be standard 
issue to all those Digital software experts 
who charge customers big bucks for analyz¬ 
ing and recommending. 

Logan A. Ragan 
Manager/Computer Services 
Bridge Brand Food Services Ltd. 

Alberta, CAN. 


* * * 

The Dec. ’82 article by Michael H. 
Koplitz (“How Do You Read RSTS/E 
Monitor Tables?”) was just what I’ve been 
looking for. 

With it, I was able to write a program 
that would periodically examine the job 
tables to see if any privileged jobs are pre¬ 
sent. Being that I am in a high school en¬ 
vironment, no one should be listed that I 
don’t know about (Students do NOT have 
privileged accounts since certain school 


system administrative functions are done on 
our PDP 11/34). 

Missing from my program is the ability to 
list the KB: at which the particular jobs are 
running. I don’t believe there was anything 
in the article and subsequent program that 
explained how to do that. If someone could 
explain how to do that, it would be greatly 
appreciated. 

Although the program I wrote is not (and 
was not intended to be) a “. . . Great Piece 
of Art . . .”, I’ve included it. 


5 ON FRR0R GOTO 5000 PEEKPR.BAS 

10 EXTEND 

20 OPEN •SPY.PRI* FOR OUTPUT AS FIIE #1% 

50 JOBTBL* = SUAPZ(CVT«Z(MID(SYS(CHR*(6Z)FCHR*(-3Z>>.11*.2Z>>> 

90 JOB.NUMBER* = JOB. NUMBFR* -F 1Z 

91 SLEEP 60 IF PEEK(JOBTBL* + (JOB.NUMBER* * 2*)) = -1* 

92 JOB.NUMBER* = 1* IF PEEK(JOBTBL* ♦ (JOB.NUMBER* * 2*)) = -1* 

94 GOTO 90 IF PFEM JOBTBL* f (JOB.NUMBER* * 2*)) = 0* 

100 JDBPTR* = PEEMJOBTBL* 4 (JOB.NUMBER* * 2*)) 

200 JDB2* = PEEK(JDBPTR* 4 8*) 

260 J2NAME1 = PFEK(JDB2*412*) 

262 J2NAMF2 = PEEK(JDB2*414*) 

2H0 J2PF NZ * PEEK(JDB2Z4 24* > 

282 PROJ* = SWAP *(J2PPN*> AND 255* 

204 PROG* * J2PPNZ AND 255* 

400 IF FRO J* = 1 THEN IF JOB.NUMBER* <> 1 THEN IF RAD*(J2NAME1>+RAD*(J2NAME?><>* 
PEEKPR * THEN IF RAD*( J2NAME1)4RAD*(J2NAME2 X' >•VT50PY■ THFN GOSUB 2000 
500 IF PROJZ = 10 AND PROG* = 0 THEN GOSUB 2000 
1000 GOTO 90 

1999 STOP 

2000 REM Flip for storage 

2050 PRINT •]*. JOB . NUMBER* * * C ’ PRO J* » F'ROG* * 3 * a RAD* ( J2NAME 1 ) 4RAD* ( J2NAMF2 ) J * *;TI 
ME*(0Z>»TIME(0Z>»DATE*(0*) 

2100 RF TURN 
5000 CLOSF 1* 

9999 FNU 


Rrart'i 

LINE 91 determines how long to wait 
between “sweeps” of the Job Tables. 

Always, I add the appropriate line at the 
start to DETACH the program. 

LINE 400 determines what JOBS are to 
be logged in “SPY.PRI” that was opened 
in LINE 20. Job #\ is excluded because it 
will always be “ERRCPY” on my system. 
“PEEKPR” (the program itself) and 
“VT50PY” are also excluded. 


I would love to be able to add to the en¬ 
tries on LINE 2050 the KB: but I don’t 
know how to do it. 

The file “SPY.PRI” can be PIPed out to 
paper when needed, and the program 
restarted to erase the old file and begin 
anew. 

Fred Gervasoni 
Joel Barlow High School 
West Redding, CT 


Sample Print 
of SPY.PRI 
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DEXPO 
EAST ’83 
PREVIEW 


To Accomodate Busy Attendees 
St. Louis Decus Meetings, 
DEXPO East 83 Will 
Be Open Sunday, May 22 


St. Louis, MO — In addition to 
providing free admission to regis¬ 
trants attending the DECUS (DEC- 
Users Society) conference, DEXPO 
East 83 — The Third National DEC- 
Compatible Industry Exposition — 
will open Sunday, May 22, in order 
to provide DECUS registrants with 


unhurried access to the thousands of 
DEC-compatible products and servi¬ 
ces that will be on exhibit. DEXPO 
East 83 will be held at Kiel Audito¬ 
rium in St. Louis, May 22-24. 

"The show is meant to be the one 
event for everyone in the DEC- 
compatible community, a place 
where users and vendors can work 
together on problems and solutions. 
So it's up to us to make it easy for 
DECUS registrants to take an active 
role in the show and the future of 
our industry," observed Larry Hol¬ 
lander, president of Expoconsul 
International, Inc., organizers of the 
DEXPO shows. 

"Once the DECUS meetings open, 
it will be difficult for the registrants 
to spend long stretches of time at the 
DEXPO East 83," he continued, "so 
we have arranged also for shuttle 


buses to speed them from the confer¬ 
ence to the show and back again. Of 
course, we expect they'll want to 
attend some of the Product Forums, 
too." The Product Forums, which 
are free to all registered DEXPO 
visitors, provide in-depth, practical 
information on many of the newest 
DEC-compatibles to be found at the 
show. Approximately 60 vendor- 
sponsored presentations will be 
given during the three-day event. 

"Putting the latest DEC-compatible 
technology to work is what the 
Product Forums are all about," 
explained Hollander. "Visitors also 
like the fact that they can follow-up 
on the most intresting presentations 
by visiting the speakers right in 
their booths." To date, the following 
63 Product Forums have been 
scheduled: 


Sunday, May 22 

Time Topic/S/vustv Room 


1:00p.m. UNIX Emulation Under VMS. A 

Human Computing Resource* 

1:00p.m. Soup-up Your VAX's and PDP-1 l's 

Terminal Handling Performance. B 

Xyplex Inc. 

1:30p.m. The RIMS/MPG Application Program Generating System .... A 

Information & System* Research 

1:30p.m. The 68000 Microprocessor Applied to the Q-Bus World . B 

Ranyan Corporation 

2:00p.m. Data Analysis & Statistics For Non-Programmers . A 

Minitab Project 

2:00 p.m. High Resolution Color and Monochrome Dot Graphics . B 

Peritek Corporation 

2:30p.m. AIDE"* — Computer Aided Software Development System . . A 

OASYS, Inc. 

2:30 p.m. New Inexpensive VT100 Emulating Terminal with PLOT-10 

and ReGis Graphics Add-on. B 

Micro-Term, Inc. 

3:00 p.m. ProNET Ring Architectured Network. A 

Protean Associates. Inc. 

3:00 p.m. Series 11 BusDriver for Direct Connection of 

Remote Terminal Clusters . B 

Micom Systems, Inc. 

3:30 p.m. Distributed Financial Management and Reporting 

With DEC Equipment. A 

Ross Systems, Inc. 

3:30 p.m. New Developments in High-Capacity Storage Technology .. B 

Disc Tech One, Inc. 

4:30 p.m. EasyEntry Forms Design and Data Entry System. A 

Applied Information Systems. Inc. 

4:30 p.m. DSC 200: Audio Data Conversion System. B 

Digital Sound Corporation 

5:00 p.m. Integrating Word and Data Processing. A 

Saturn Systems, Inc. 

5:00p.m. Bubble Memory — How To Use It in SLI-11 Systems. B 

Bubbl-Tec 

5:30 p.m. Relational DBMS and its SQL, Plus User Friendly Interface ... A 

Oracle Corporation 

5:30p.m High Speed Printers: Current Models and Future Possiblilities . B 

American Computer Hardware Corporation 

i 00 p.m. DICICALC™, an "IndustrialStrength" Electronic 

Spreadsheet for DEC Computers . A 

WHY Systems Inc. 

6:00 p.m. ABLE VMZ:/LP: New Intelligent Line Printer Controller. B 

Able Computer 

6:30 p.m. Sphere: A Target Resident Interactive Realtime 

Programming Environment . A 

Infosphere 

Monday, May 23 

Time Topic /Sponsor Room 

11:00a.m. Flexible Performance from MCBA's Modular 

Integrated Manufacturing System. A 

MCBA 

11:00 a.m. The Future Of Intelligent Controllers In The 

Peripheral Marketplace . B 

U S. Design Corporation 


Monday, May 23 (continued) 


Time Topic S/nwsor Room 


11:30a.m. Magnum: An Integrated Relational DBMS 

For Production Applications. A 

Tymshare 

11:30a.m. CP/M For Your LSI-11 or PDP-11 . B 

Decmation 

12:00 noon NET488 — File Transfer Package for DEC Computer Networks . A 
National Instruments 

12:00 noon Alternatives To Manufacturers'Service . B 

Grumman Data Systems Corfioration 

12:30p.m. Basis: A Proven Textual Application System. A 

Battelle Software Products Center 

12:30p.m. Digital's New Rainbow -100 and Professional - 300 Computers . B 

New England digital Systems 

1:00 p.m. NASA's Technology Transfer Program. A 

Cosmic 

1:00 p.m. Determining Your Training Requirements — 

Task and Skills Analysis . B 

Essential Resources, Inc. 

1:30p.m. System 1032: A Data Base Management System for the VAX . . A 

Software House 

1:30p.m. New Supplies and Accessories for Personal Computers . B 

Computer Parts Exchange 

2:30 p.m. Optimizing RSTS Performance with RPM. 

the RSTS Performance Monitor. A 

Northwest Digital Software 

2:30p.m. New 22-bit Floppy Disk Controller and More. B 

Micro Technology. Inc. 

3:00 p.m. Accent R, 4th Generation DBMS. A 

National Information Systems. Inc 

3:00 p.m. Protector's Security Properties and its Approach to Threats . B 

Compion Coronation 

3:30p.m. Accounting Software for VAX . A 

McCormack & Dodge Corp. 

3:30 p.m. Overtemperature Protection for DEC Computer Systems .... B 

Nassau Systems 

4:00p.m. IBM Device Attachment Control Unit (DACU) . A 

IBM Corporation 

4:00p.m. The Manufacturing Process of Rigid and Flexible Media. B 

Nashua Corporation — Computer Products Division 

4:30 p.m. 7 Ways to Justify Quality Business Graphics 

In Your Organization . A 

Software Vision 

4:30p.m. Data Communications in the Local Area Network. B 

Teltone Corporation 

Tuesday, May 24 

Time Topic/S/xwsor Room 


11:00a.m. Data BaseConcepts In Process Control 

And Laboratory Automation . A 

KineticSystems Corporation 

11:00a.m. An Overview of UNIX Operating Systems. B 

Cambridge Digital Systems Div. of Compumart 

11:30a.m. P-Stat: An Integrated Data Management, Data Display 

and Statistics Package. A 

P-StatInc. 

11:30a.m. Full Office Automation for RT, TSX + . RSX, RSTS and VMS . B 

Compu-Tome Inc.. Mountain West Software/Discom 
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Tuesday, May 24 (continued) 


Time Topic/S/xwsor Room 


12:00noon SPSS-X: An Advanced Information Analysis System . A 

SPSS. Inc. 

12:00 noon New Capabilities Stat MUX: New Modems. B 

ComDesign, Inc. 

12:30 p.m. 4th Generation Relational Database Management System 

and Non-Procedural Application Generator . . . A 

Contel Information System* 

12:30 p.m. Focus: An A1 State-of-the-Art Inferencing Engine . B 

Systems Cognition Corporation 

1:00 p. m. SOFTOOL *: A Complete Change and Configuration Control 

and Programming Environment . A 

Softool Corporation 

1:00p.m. The SAS System of Products and Services . B 

SAS Institute Inc. 

1:30 p.m. Interactive, Computer-Aided Application Generation Techniques: 

Data Entry, Report Generation, Data Base Management. A 

Clyde Digital Systems 

1:30 p.m. Bridge and Z-Board: The Best 4 Micro Computers Never Bought . B 

Virtual Microsystems 


Tuesday, May 24 (continued) 


Time Topic Sponsor Room 


2:30p.m. System Management & Performance Software . A 

Cejac Inc. 

2:30p.m. Microprocessor Based Communication Nodes for 

DECSystem-10's and 20's. B 

Viking Computer Corporation 

3:00p.m. Software Product Advances for VMS. A 

Evans Griffiths and Hart. Inc. 

3:00 p.m. Menu-Driven Business Graphics For VAX Users. B 

Dataplotting Services Inc. 

3:30 p.m. Greater Productivity At Reduced Investment Through 

VAX/PDP 11 Productivity Tools plus DBMS. A 

Amcor Computer Corp. 

3:30p.m. Integrated Office Automation & Decision Support Tools. B 

Henco Software 

4:00p.m. CALC-11 Plus Electronic Spreadsheets. A 

Computer Systems Corp. 

4:00p.m. Bar Code Generation & Scanning Applications. B 

Dytec South Inc. 


Survey Finds Visitors To 
DEXPO East 83 Will See A 
Broad Range Of DEC-Compatible 
Hardware & Software 
Never Before On Exhibit 


St. Louis, MO — Among the liter¬ 
ally thousands of DEC-compatible 
products and services to be exhi¬ 
bited at DEXPO East 83 — The Third 
National DEC-Compatible Industrv 
Exposition — will be several 
hundred hardware and software 
offerings that have never been 
shown before. According to a poll of 
current exhibitors, it is projected 
that new software offerings at the 
show — to be held at the Kiel 
Auditorium, St. Louis, May 22-24 — 


will actually outnumber the exhibi¬ 
tors showing software; for hardware, 
the average exhibitor will show at 
least two products never before on 
exhibit. The same survey found that 
visitors will have first-time access to 
a substantial array of new services 
as well. 

With 200-250 vendors of DEC- 
compatibles expected to participate, 
the show is designed to be a com¬ 
plete information resource for 
owners, managers, users and dealers 
of DEC-based systems. This is evi¬ 
denced by the growing number of 
"compatible-compatibles/' These are 
DEC-compatible products created 
specifically for use with other DEC- 
compatibles. As a result, visitors to 
DEXPO East 83 will be able to 


fashion more versatile DEC systems 
than ever before. 

New DEC-compatibles slated to 
debut at the show include an 
increasing number of software and 
hardware products for use with 
DEC's personal computers, products 
for use in manufacturing and engi¬ 
neering environments, graphics, 
office automation, data communica¬ 
tions, database management, pro¬ 
ductivity tools, voice recognition 
devices, analysis and forecasting 
systems and more. 

Complete information of DEXPO 
East 83 is available from Expocon- 
sul International, Inc., 55 Princeton- 
Hightstown Road, Princeton 
Junction, NJ 08550 Telephone 609- 
799-1661. 


EXHIBITOR LIST. AS OF MARCH 8. 1983. 


Computer Parts Exchange 

Spares, Repairs & Accessories 

D 




Computer Products, Inc. 

Measurement/Control Subsystems 

732 

COMPANY 

PRODUCT DESCRIPTION 

BOOTH 

Computer Systems Corporation 

Calc-11 Electronic Spreadsheet 

114 




Computer Systems Development 


418 

Able Computer 

PDP, LSI, & VAX Enhancements 

K 

Computers-R-Digital 

DEC-Related Magazine Monthly 

515 

Absco Systems Corp. 


423 

Computome 


507 

Access Technology 

Decision Support Software 

625 

Contel Information Systems 

Relational 4th Generation DBMS 

420 

ADAC Corporation 

LSI-11 Boxes/Interfaces/Systems 

321 

Cosmic 

NASA's Software 

513 

Advanced Data Management 

DBMS/X-Action Proc/RPT Writer 

305 

Cosmos Systems, Inc. 

68000 Micro - Unix - Thernet 

720 

•Advanced Digital Office System 

BACM AC-RSTS/E Supercharger 

101 

Data Processing Design, Inc. 

Word Processing & Bus Graphics 

300 

AGS Management Systems, Inc. 

Project Management Systems 

404 

Data Systems Design 

Winchester Disc Systems 

704-706 

Air Filtration Products, Inc. 

Air Filters for DEC Drives 

729 

Datanex, Inc. 

Interconnect DEC/lBM/CDC/etc. 

106 

Amcor 

DEC RSTS and VAX Software 

231 

Dataplotting Services, Inc. 

VAX Graphics Software 

534 

American Computer Group, Inc. 

Dealer/Terminal Distributor 

J 

Dataram Corporation 

Systems, Memories & Controllers 

336 

American Computer Hardware 

High Speed Printers/Subsystems 

804 

Datasystems Corporation 


533 

Anadex, Inc. 

Serial Matrix Impact Printers 

419 

Dawn Computer Corporation 


600 

Andromeda Systems, Inc. 

LSI-11 Systems and Components 

320 

DEC Professional Magazine 

DEC Related Magazines 

E j 

Applied Information Systems Inc. 

PDP-11 & VAX Systems Software 

221-223 

Decmation 

CP/M for DEC-11 Computers 

724 

Atlantic Research Corporation 

Data Comm Diagnostic Equipment 

434 

Digital Communications Assocs. 


331 

Automated Information Inc. 

Compatible Disc & Controllers 

725 

Digital Design/Morgan Grampian 

Engineer's "Working Journal" 

617-619 

Aviv Corporation 

Disk and Tape Subsystems 

312 

Digital Engineering 

Retro-graphics TM Enhancements 

424 

Aydin Controls 

Color Graphic Display Equipment 

B 

‘Digital Equipment Corp. 

Rainbow and PRO 350 Computers 

101 

Battelle Memorial Institute 

.Basis (CMS); Basis-DM (DBMS) 

335 

Digital Information Sys. Corp. 

DBL- A Superset of DEC's DIBOL 

430 

Braegen Corporation 

Disk Subsystems/Controller 

701-705 

Digital Sound Corp. 

Audio Conversion System 

734 

Britton-Lee, Inc. 

Intelligent Database Machines 

237 

Disc Tech One 

DEC Compatible 14" Disc Drives 

707 

Bubbl-Tec 

Solid-State Mass-Storage System 

624 

Distributed Logic Corp. (DILOG) 

DEC CPU Compatible Controllers 

112-113 

California Computer Group 

Low Cost Systems & Peripherals 

615 

Dytec, Incorporated 

Computer Peripheral/Datacomm 

516 

Cambex Corporation 

DEC Memories; Solid State Disc 

422 

Eaton Corp. 

Third Party Maintenance 

614 

Cambridge Digital/Compumart 

DEC PDP-11 Based Systems 

708 

EEC Systems 

Office Automation/Sys Software 

406 

Care Information Systems 

CARE/DM SYSTEM 

416 

Emulex Corporation 

Peripheral Controllers 

524 

CIE Terminals Inc. 

Video Terminals/Line Printers 

A 

Enterprise Technology 

User-Friendly Report Writer 

609 

Clyde Digital Systems, Inc. 

Software Utility Specialists 

501 

Essential Resources 

DEC-CompatibleTraining Unix 

405 

Cobar 

VT100/132 Emulating Terminals 

124 

Evans Griffiths & Hart, Inc. 

PDP-11 & VAX Software Packages 

313 

Comdesign 

TC-3 Concentrator 

118 

FASBEGroup, The 

Financial Software Consulting 

105 

Compion 

Protector-Data Security System 

301 

First Computer Corp. 

DEC, SMS, & First Systems 

325 

Compu-Share, Inc. 

General Accounting Software 

213-217 

GE)AC 

Chargeback Performance 'Comm SW 

317 

Computer Hot Line 

Advertising Publications 

110 

Grant Technology Systems Corp. 

Q-Bus Compatible 1 O Boards 

805 




Grumman Data Systems 

Hardware Maintenance Services 

235 
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COMPANY 

PRODUCT DESCRIPTION 

BOOTH 

Halcyon 

Data Communications Experts 

712 

Hardcopy 

Publication 

C 

HCR 

Unix Operating Systems 

735 

Henco Software, Inc. 

4th Generation Language Sys. 

413 

Hewlett-Packard Company 


626 

Highsmith, James L. & Co. 

Personal Computers & Terminals 

107 

IBM 

DACU-OEM Attachment to IBM 

737 

IMSL 

MATH/ST AT Fortran Software 

504 

Information Si Systems Resch, Inc. 

Program Generating System 

307 

Infosphere, Inc. 

Falcon/QBUS RealTime/DataComm 

122 

Intelligent Systems Corp. 

Color Graphic Terminals 

622 

Interactive Info. Sys., Inc 

Manufacturing& Accounting Sys 

716 

Interactive Management Systems 

Financial and Mfg. Software 

1 m 

Interactive Systems, Inc 

VAX, DEC 10/20, PC-350 Software 

401 

Interactive Technology, Inc 

RDM Responsive Data Management 

322 

Itoh, C. Electronics 


A 

KineticSystems Corp. 

CAM AC Based Systems & Modules 

316 

Logicraft, Inc. 


733 

Marc Software Internat'l, Inc. 

Muse Word Processing Software 

334 

•Masstor Systems Corporation 

Mass Storage Facility 

H 

MCBA 

Applications Software 

102 103 

McCormack Si Dodge Corporation 

VAX Accounting Software 

527 

MCG Electronics 

Data & Power Transient Protect 

731 

MDB Systems 

Computer Interface Products 

713 

Meridian Consulting 

Software Services/Consulting 

635 

Micom Systems 

Datacomm Products/Bus Driver 

F 

Micro Technology, Inc. 

Hard/Soft Controller/Subsystem 

637 

Micro-Term, Inc. 

VT100 Compatible Terminals 

407 

Mini-Micro Systems 

Systems Integrators' Magazine 

431 

Minitab Project 

Software for Data Analysis 

711 

Minntronics Corporation 

Cache Memory and Com Interface 

121 

Monolithic Systems Corporation 


604 

Mountain West Software 

Office Automation Software 

507 

Nashua 

Flexible Si Rigid Media 

111 

Nassau Systems 

Hi-Temp Protection Systems 

819 

National Information Systems 

ACCENT R - 4th Generation DBMS 

631 

National Instruments 

IEEE-488 Interface 

605 

Netcom Products, Inc. 

LSI-11 System BuiU.ingOptions 

720 

New England Digital Systems 

Digicalc, Lex-11, Accounting SW 

101 

Newman Computer Exchange 


201 

North County Computer Svcs Inc. 

USER-11 RSTS/E & VAX DBMS 

108 

Northern Technologies 


712-714 

"Northw-est Digital Software 

RPM-RSTS Performance Monitor 

E 

Nvplan, Inc. 

Spread Sheet/Financial Modeling 

120 

Oasys Office Automation System 

Software Development System 

700 

Omtool Corp. 


835 

ORACLE Corporation 

ORACLE" DBMS 

425 

Oregon Softw-are 

Pascal and Programming Tools 

613 

P-Stat, Inc 

Data Mgt and Stat. Software 

219 

Pass 

1 iardware/Software/Service 

618-620 

Peed Publishing 


520 

Pencept, Inc. 

Handprint Recognition Terminal 

127 


COMPANY 

PRODUCT DESCRIPTION 

BOOTH 

Pennington Systems, Inc. 

Software Tools/Utils (11/VAX) 

104 

Peripheral Parts Support, Inc. 

Absolute Filters/RepairServ. 

525 

PeritekCorp 

High Resolution Colorgraphics 

623 

Plessey Peripheral Systems 

Q-Bus Systems Si Sub-Systems 

207 

Polygon Associates, Inc 

Communication Software 

507 

Professional Software Support 

V’PI.AN Electronic Spreadsheet 

607 

Protoon Assik: , Inc 

ProNFT, Local Area Network 

517 

Radgo Sales Co. 

Computer Sparea Media Supplies 

323 

Ranvan Computer Enhancement 

68000-Based Q-Bus Processor 

630 

Raxco,Inc 


319 

Relational Technology, Inc 

Relational DBMS 

330 

Reliance Electric Company 

Digital Repair Services 

505 

RGTI Systems Software 

RFX, Screenshare, FDV/CC. 3271/DD 

337 

Ross Systems 

Financial Management Software 

205 

S & H Computer Systems, Inc. 

System Software for DEC PDP-11 

324 

SAS Institute, Inc 

Data Analysis & Reporting S.W 

632-634 

Saturn Systems 

Word/List Processing, S sheet 

225 

Sauer Computer Systems, Inc. 

DEC Software on a 32 Bit IBM 

834 

Signal Technology, Inc. 

SMARTFORM, PACS, 



OMNIBASE, ILS 

512 

Sky Computers, Inc. 

Array Processor/Dual P + Memory 

519 

Smith, C D. Si Associates 


518 

Softool 

Change Si Configuration Control 

730 

Software House 

10, 20 and VAX DBMS 

400 

Software Results 

DEC IBM RJE LINK to 56KB 

125-126 

Software Vision 

Interactive Bus Graphics Pkgs. 

918 

SPSS, Incorporated 

Information Analysis Software 

601 

Standard Engineering Corp. 


522 

Standard Memories/Trendata 

Add-in/On Memories - Terminals 

436 

System Industries 

Disk and Tape Storage Systems 


System Industries 

A 1 Software Products 

H 

Systems Cognition Corporation 


506 

Technical Magic, Inc 


723 

Tektronix, Inc. 

The Graphics Standard 

530 

Telev ideo Systems, Inc 

CRT Display Terminals 

612 

Teltone Corporation 

Data Communications Equipment 

531 

Tvmshare, DatabaseSystems Div. 

Integrated Relational DBMS 

G 

Tymshare, TCSS 

Hard ware Support; Systems Sales 

G 

U. S. Design Corp., USDC 

Winchester Storage Subsystem 

306 

"Universal Color Systems 

Color Measurement Systems 

122 

Viking Computer Corporation 

Microprocessor Comm Nodes 

115 

Viking Software Services, Inc. 

CRT Data Entry'Screen Design 

304 

Virtffal Microsystems 

CP/M Emulator 

500 

Weidner Communications Corp. 

Computer-Assisted Translation 

627 

Western Peripherals 


535 

Whitesmiths, Ltd. 

IDRIS: C&X Compiler 

621 

WHY Systems, Incorporated 

Spreadsheet/Financial Analysis 

123 

XEROX 

Manufacturing Software 

412 

Xylogics 

Controller for Disk and Tape 

736 

Xyplex, Inc 

Terminal Front-End & Switch 

435 

Zia 

RT-liq'SX Soft ware Tools 

318 


EDITOR’S NOTE: The following press 
releases are from companies who will 
exhibit their products or services at 
DEXPO East 83. 


Applied Information 
Offers Software For 
'Professional 300 Series' 


Applied Information Systems, Inc., 
will announce software for the Digital 
Equipment Corporation Professional 
300 series of personal computers. 

EasyEntry, the full screen forms 
design and data entry system for the 
PDP-11 and VAX, will now run 
under Digital's P/OS operating sys¬ 
tem. EasyEntry allows Professional 
users to quickly develop and imple¬ 
ment full screen forms and data 


entry applications. With EasyEntry, 
the Professional 350 desktop compu¬ 
ter can be used as an applications 
development system, as well as a 
data entry station which can be 
linked to a variety of host systems. 

AIS will also announce runtime 
support for the AIS-PL/I compiler on 
the Professional 350 at DEXPO. Now 
PDP-11 and VAX users can develop 
ANSI Standard Subset G PL/I pro¬ 
grams to be run on the Professional. 

Demonstrations of EasyEntry and 
AIS-PL/I will be available at the AIS 
exhibit in Booths 221-223. Other 
DEC-compatible software featured in 
the exhibit will include the 
BURCOM-11 PDP/Burroughs com¬ 
munications system, the WP Saturn 
word/list processing system, and the 
SaturnCalc electronic spread sheet. 

For more information, contact App¬ 
lied Information Systems, Inc., 500 
Eastowne Dr., Chapel Hill, NC 
27514. (919) 942-7801. 


Softool Will Demonstrate 
Change & Configuration 
Control Environment 


The SOFTOOL® Programming 
Environment, available directly from 
DEC as well as from Softool Corpo¬ 
ration, will be demonstrated. 

CCC™, which is only available 
from Softool, is the one product that 
offers change control as well as 
configuration control. CCC™ auto¬ 
mates the management of changes, 
and the management of different 
configurations (versions) of a soft¬ 
ware product. CCC™ can handle 
many things: source code, object 
code, documents, test data, etc. 
CCC™ provides comprehensive sup¬ 
port that includes: automatic recon¬ 
struction of previous versions, 
difference reports, management 
reports, access control, archiving, 
compression, encryption and auto- 
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matic recovery. CCC™ can handle 
programs in Fortran, Cobol, Pascal, 
C, Ada® Jovial, Assembly, etc. 

The SOFTOOL® Programming 
Environment is an integrated soft¬ 
ware development facility that auto¬ 
mates the rapid generation of quality 
software. Starting from a design 
document, it will produce, typically, 
between 50% and 75% of the code 
needed. Then, it provides the tools 
necessary to automate checkout and 
quality assurance. The available 
tools include code generator, struc¬ 
tured languages, source code and 
interface documenters, standards 
and portability auditor, error detec¬ 
tors, tracing, testing and optimiza¬ 
tion aids. 

For further details, contact Softool 
Corporation at 340 South Kellogg 
Ave., Goleta, CA 93117. Or tele¬ 
phone (805) 964-0560 or (213) 382- 
6302. 


Mountain West Software Has 
'Professional 300 Series' 
Office Automation Package 


Mountain West Software/Compu- 
Tome, Inc. offers a complete office 
automation package for PDP/ll's 
and VAX. CT*OS is now available 
for the new DEC Professional 300 
series, including the spelling cor¬ 
rector. The applications include a full 
featured word processing system, 
CT*OS Word Processing, CT*OS 
Spelling Corrector, Electronic 
Spreadsheet, Executronic Mail (TM), 
Communications, and a System Util¬ 
ity Package that includes, list file 
sort, printing of indexes, user index 
migration, and a facility for docu¬ 
ment recovery following system 
problems. 

CT*OS (Compu-Tome Office Sys¬ 
tem) features full editing capability, 
list processing, global search and 
replace, cut and paste, headers, foot¬ 
ers, boiler plate libraries. Movement 
through documents by word para¬ 
graph, sentence, page, etc. Status 
line indicates page, line, column 
position, in addition to mode, docu¬ 
ment number, and account. Compu- 
Tome, Inc. will be soon be releasing 
version 5.0, that will include true 
multi-column compatibility, summa¬ 
tion, table of contents, auto indexing 
and paragraph numbering, auto 
footnoting, bolding and underlining 
on the screen. Alternate characters, 
such as Greek, scientific and techni¬ 
cal, can be displayed on the screen, 
depending on the user's needs. 

CT*OS is now available for the 
DEC 300 Professional Series, with 
much of the same capabilities as on 



Buy your MCBA® software 
the way you buy your groceries- 

All at one place and only what you need. 


iMVHW 


V90W 


We specialize in tough shoppers like 
you. We’re the one-stop software super¬ 
market. We’ve got it all. And at discount 
prices. And it’s all unbundled, so you can 
pick and choose the things you need 
today and come back later for the things 
you need tomorrow. Compatibility 
between all our software lets you mix 
and match and come up with your 
own recipes. 

In addition, INSTALLATION, TRAINING, 
CUSTOMIZATION, EXCLUSIVE 
S0FTLINE ,m TELEPHONE DIAGNOS¬ 
TIC SUPPORT, and other services are 
available, priced separately. 

Who said supermarket shopping 
wasn’t fun! 

MCBA* MANUFACTURING SOFTWARE 35% OFF 

MCBA* DISTRIBUTION SOFTWARE 35% OFF 

MCBA' ACCOUNTING SOFTWARE 35% OFF 


SATURN CALC* AVAILABLE NOW 

POWERCALC' - POWERCALC PLUS * AVAILABLE NOW 
SATURN WORD PROCESSING AVAILABLE NOW 

CSA WORDWRIGHT * — 

WORD PROCESSING. 

DATA BASE MANAGEMENT, 

REPORT GENERATOR 


— CALIFORNIA SYSTEMS 
ASSOCIATES 

2845 Mesa Verde Drive East. Suite Four. Costa Mesa.CA 92626 
For demonstration call: (714) 546-9716 

YOUR HEADQUARTERS FOR MCBA* 
AND MCBA" COMPATIBLE SOFTWARE. 


AVAILABLE NOW 

BTG MANUFACTURING AND 

DISTRIBUTION TRAINING SEMINARS AVAILABLE NOW 


MCBA is a registered trademark of Mini-Computer Business Applications. Inc , and those products are available to end-users RSTS. RSX-11, DIBOL. 
DEC. PDP-11 are registered trademarks of Digital Equipment Corporation Saturn Calc is a registered trademark of Saturn Systems. Inc Wordwright 
and PowerCalc are registered trademarks of California Systems Associates 
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the larger DEC systems. CFOS files 
can be transferred easily, with our 
communications option, between 
PDFs or VAX computers and Profes¬ 
sional series. CFOS must be 
installed on both systems to utilize 
this capability. 

For more information write Gina L. 
Harris, Mountain West Software, 234 
East Colorado Blvd., Pasadena, CA 
91101. 


Ross Systems Will Show 
New Financial Software 
For 'Professional 350 # 


Ross Systems will demonstrate 
MAPS/Pro, the new financial soft¬ 
ware for the DEC Professional 350. 

MAPS is Ross Systems' financial 
modelling package designed for an 
array of applications for the finan¬ 
cial executives. Financial forecast¬ 
ing, budgeting, strategic business 
planning, personnel planning, tax 
analysis, and consolidations are just 
a few of the areas in which MAPS 
has been repeatedly successful. A 
full color graphics package is 
included with MAPS creating a per¬ 
fect tool for faster, more accurate 
financial decision making. Used on 
Digital Equipment's PDP-11 and 
VAX-11 computers, MAPS is a 
language for decision support of 
non-programming executives. 

The version of MAPS for the new 
DEC Professional 350, called MAPS- 
/Pro, contains all of the commands 
and capabilities of MAPS. MAPS- 
/Pro also shares features and benef¬ 
its of its forebear such as Interactive 
"friendliness," flexible reporting, 
integrated graphics, prompts, HELP 
messages, and a library of financial 
functions. 

INTAC is Ross Systems' database 
management system, and is a power¬ 
ful tool for organizing and reporting 
strategic data. Data entry, data vali¬ 


dation, updating, reporting and 
inquiry are all available in easy-to- 
use Business English. INTAC appli¬ 
cations include financial information 
databases, headcount planning, 
accounting systems, asset/liability 
management and much more. 

For more information contact Ross 
Systems, 1860 Embarcadero Rd., 
Suite 210, Palo Alto, CA 94303, 
(415) 856-1100. 


New VTR Presentation From 
Care Information Systems 


Care Information Systems, Inc. 
will introduce a new VTR presenta¬ 
tion of the CARE/DM System. 

The unique presentation is among 
the first step-by-step video demon¬ 
strations ever produced for sales 
and training use. The 45-minute VTR 
illustrates how the CARE/DM Sys¬ 
tem software manages patient infor¬ 
mation, patient billing, insurance 
processing, collection management, 
scheduling/recall, and financial 
transactions. Care President, John 
Struckhoff also explains operating 
instructions and documentation as 
well as providing background about 
the product and the company. 

According to Ernest Lang, Vice 
President, the VTR enables inter¬ 
ested parties to receive the complete 
product story at their convenience 
and provides far more information 
than could be covered in a typical 
sales call. 

The CARE/DM System operates 
with DEC PDP/11 and VAX Proces¬ 
sors in RSTS/E and VMS environ¬ 
ments. It is available on a 
time-shared basis, as an individual 
software package or as a complete 
system with DEC hardware. 

For further information, contact: 
Care Information Systems, 3009 
South Sixth Street, Springfield, IL 
62703, (217) 522-CARE. 


DISC Will Introduce 
Combination Package 


DISC will be introducing to Sys¬ 
tems Integrators and OEM's a com¬ 
bination package that includes 
DISC's DBL and S&H Computers 
Inc's TSX-Plus and RTSORT. The 
combination package costs integra¬ 
tors anywhere from $1420 for 5 
copies to $1154 for 100 or more. 

DBL is a structured source code 
compatible superset of Digital Equip¬ 
ment Corporation's DIBOL-11 lan¬ 
guage. DBL is currently available for 
DEC'S RT-11, RSTS, RSX-11M and 
VAX/VMS environments as well as 
for S&H's TSX and TSX-Plus Time 
Sharing Extension to RT-11 on DEC 
minicomputers. DISC recently 
released DBL/VMS, the latest in the 
DBL series of compiler and runtime 
systems, for use in native mode under 
the VAX/VMS operating system. 
Early users of the product cite the 
in-line code and /BIND facilities as 
the major system performance 
enhancement features, which, when 
used with the structured extensions 
to the DIBOL-11 language provide 
an efficient and easily maintainable 
programming environment. 

Additional product and pricing 
information may be obtained from 
DISC, 3336 Bradshaw Road, Suite 
340, Sacramento, CA 95827, 
(916)363-7385. 


Winchester System Available 
From Data Systems Design 


The DSD 890, a DEC-compatible 
31.2 megabyte (Mb) Winchester sys¬ 
tem with 1/4-inch tape backup, is 
now available from Data Systems 
Design, Inc. It replaces three Digital 
Equipment Corporation (DEC) RL02 
cartridge disks and a TS-11 1/2- 
inch tape. 


r 


Word 

Processing * 

VAX/VMS, RSTS/E, 
RSX-11M 

* Word-11 by 

Data Processing Design, Inc. 

181 W. Orangethorp Avenue 
Placentia, CA 92670 






On Track Systems Provides: 

Sales 
Service 
Installation 
Demonstrations 
Training 
Consulting 


At your 
convenience! 

At your 
office! 


On Track 
»ms, Inc. 

P.O. Box 245 
Ambler, PA 19002-0245 
(215) 542-7008 
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The DSD 890 takes up to 80 
percent less rack space and utilizes 
a 16.25-Mb, 1/4-inch tape for lower- 
cost archival storage and media 
transportability. At $9,895 in single 
quantities, the DSD 890 offers full 
RL02 and TS-11 emulation, faster 
throughput and extra features for a 
price comparable to two RL02 units. 

The DSD 890 is fully compatible 
with DEC LSI-11 (Q-bus) minicom¬ 
puters, and operates with RT™. 

RSX™, TSX™, RSTS™ and UNIX™ 
operating software. The 890 also 
supports 22-bit addressing and all 
of the handy DEC backup utilities, 
including BRU, DSC and PIP. 

Other features include on-board 
bootstrap, 32-bit error correction, 
documentation to convert user soft¬ 
ware to 1/4-inch tape media and 
simultaneous Winchester and tape 
operation without throughput 
degradation. 

The 890 operates in non- 
interleaved mode for a transfer rate 
of 364 kilobytes per second or about 
15 percent faster than a single DEC 
RL02. However, users can elect to 
program two- or three-way inter¬ 
leaved operation for applications 
requiring less bus usage. The 
DSD 890's Winchester emulates 
three DEC RL02s, while the 890's 
1/4-inch tape emulates the 1/2 
inch TS-11 tape subsystem. This 
emulation, achieved through the 
890's intelligent controller, allows 
the DEC operating software to com¬ 
municate to the DSD Winchester and 
1/4-inch tape as if they were DEC 
devices. 

The 890's 1/4-inch standard 
cartridge tape drive has start/stop 
capability to provide transparent 
DEC software compatibility for tape 
backup and restore functions. The 
1/4-inch tape cartridge can be 
shipped easily and takes up much 
less space than an RL02 disk pack. 

At a fraction of the price of an 
RL02 disk pack, the 1/4-inch tape 
cartridge is also a more economical 
means of archiving data. 

DSD has enhanced its Hyper- 
Diagnostics™ by providing self¬ 
diagnostics and testing activated by 
a push button located behind a 
small door on the front bezel. A 
seven-segment display shows an 
error code if a faulty component is 
detected. 

DSD also offers its overnight 
module exchange and economical 
warranty extension services, which 
are available through the company's 
nationwide sales and support 
network. 

The 890 Winchester/tape system 
is housed in a small, 5V4-inch high 


rack-mount package and is attrac¬ 
tively styled to complement a PDP 
11/23 minicomputer. 

Quantity prices for the 890 are 
available. Production units will be 
available in March, with delivery 
30-45 days after receipt of order. 

For more information contact 
Dianna Konrad, Data Systems 
Design, 2241 Lundy Avenue, San 
Jose, CA 95131, (408) 946-5800. 


MCG Electronics Will Show 
Line Protectors & Systems 


MCG Electronics, Inc. will be 
exhibiting its Surge-Master Heavy 
Duty AC Power Line Protectors for 
the first time. In addition to the 
Surge-Master, MCG will also exhibit 
its other new AC power line and 
data/signal line protectors. 

The new, low cost series of Surge- 
Master Heavy Duty protectors 
shields computers and similar instal¬ 
lations from lightning and transient 
overvoltages that can damage 
equipment seriously enough to 
require hours or even days of 
downtime. 

Surge-Masters are designed to 
provide 100% protection at all 
times, even if they themselves have 
been partially damaged by a very 
close lightning strike on a power 
line. They will also absorb lesser 
transients, microseconds in duration, 
which, while doing no immediately 
noticeable damage, can cause com¬ 
puters to give garbled information 
and have cumulative effects that can 
ultimately result in random, unex¬ 
plained failure. 

Indicator lights on the front panel 
of the Surge-Master protector give 
its exact status at all times. A green 
LED indicates that it is in the "nor¬ 
mal," ready-to-protect mode; a reset¬ 
table yellow LED goes on whenever 
the unit absorbs a transient; and a 
red LED indicates the presence of a 
fault, with internal status lights indi¬ 
cating the exact fault location. The 
Surge-Master will also record and 
display the number of times that 
transient surges have been 
suppressed. 

Employing two stages of protec¬ 
tion — high speed silicon suppres¬ 
sion which reacts within 5 
nanoseconds, and truly "brute 
force" second stage protection — the 
new protectors will absorb even a 
very close lightning strike on a 
power line. To further ensure that 
protection is available at all times, 
each phase of the incoming line is 
protected by three independent 
heavy duty suppression modules, so 


Catch that address 
list duplication . . . 
Before it goes off 
with a stamp! 

New Address List 
Processing Package 
(ALP) for DEC 
Operating Systems, 
from McHugh, Freeman 

List Creation: Creates uniquely 
structured lists with identifiers and 
12 data fields 

Address Entry: Enters data via 
keyboard to formatted screen or 
from magtape lists 
Duplicate Entry Detection: Detects 
duplications at moment of key¬ 
board entry 

List Maintenance: Purges complete 
lists; updates and deletes; appends 
additional data fields; displays 
entries and removes to tape or 
backup file 

List Extraction: Extracts/merges 
lists; selects each field for range or 
inclusion/exclusion processing 
Envelope/Label Production: Prints 
3" or wider labels, 1-up to 4-up; 
prints envelopes in alphabetical or 
zip code order 

Report Generation Interface: A 
standard feature; interface with 
DEC DATATRIEVE-II® 

Optional WP Interface: Full list/ 
merger capabilities with DPD's 
WORD-11® or DECword/DP® 

Try these other McHugh, Freeman 
packages to create applications, 
maintain systems, and protect data: 

• Automatic Password Changer 
(APC) • Encryption Routine 

• Keyboard Master (KBMSTR) 

• Menu/Authorization Processor 
(M/APS) • Source/File Cross 
Reference (XREF) • Standard 
Subroutine Library (SUBS) 

• VT100 Accounting Calculator 
(CALC) • System Support Services 

For more information, call 
McHugh, Freeman and As¬ 
sociates, Inc. at 1-414-784- 
8250 and ... let us ALP-atize 
your mailing lists! 


iip McHugh, Freeman 
& Associates, Inc. 

1135 Legion Drive 
Elm Grove, WI 53122 


DATATRIEVE and DECword'DP are registered 
trademarks of Digital Equipment Corp. WORD-11 is 
a registered trademark of Data Processing Design. 
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that if any one is knocked out by 
lightning, two others will still be 
operating to provide protection. Life 
expectancy for the Surge-Master 
units is conservatively estimated at 
30 years. 

Because the Surge-Master Heavy 
Duty Power Line Protectors are con¬ 
nected in shunt, rather than in 
series, they can be installed quickly 
and easily, with little or no interrup¬ 
tion of power. When installed, using 
a service disconnect switch, mainte¬ 
nance and repair can be done with¬ 
out producing system "downtime". 
Models of the Surge-Master Heavy 
Duty Power Line Protectors are 
available for service panels rated 
from 100 to 3000 amps and higher; 
for 120, 240 and 480 VAC; and for 
single and three-phase power sys¬ 
tems. All models are housed in a 
rugged NEMA 12 enclosure. 

Availability stock to 30 days. Pri¬ 
ces from $1692 to $96,380. 

Protection from transients and 
surges on data lines entering main 
frame computers from as many as 
20 outlying printers, terminals, or 
sensors is now available in a single 
19" rack-mounted card cage from 
MCG Electronics, Inc. The card 
cage, designated DLP-40, can hold 
up to 20 cards, each capable of 
accommodating five lines. It is 
being exhibited for the first time. 

Transients and surges re imposed 
on data lines by lightning, by 
switching surges, relays, solenoids, 
and heavy machinery; they can be 
coupled into the data lines directly, 
or through the AC power lines. All 
transients and surges cause some 
damage to semiconductor junctions, 
and this damage is cumulative so 
that it ultimately results in failure. A 
direct lightning strike, even many 
miles away, can do very serious 
damage. 

The MCG system interfaces 
between the computer and the data 
line, and provides a sophisticated 
blend of high speed (nanoseconds) 
voltage limiting and brute force 
protection. It recovers immediately 
after each surge, in readiness for the 
next. 

Plug-in cards are available to pro¬ 
tect RS-232, RS-422, RS-423, 20ma 
loops, and dedicated line modems. 
Interface options include terminal 
strips, RS-232 connectors (DB-25s), 
and Mate-n-Lok connectors. 

For further information contact 
William J. Purcell, MCG Electronics 
Inc., 160 Brook Avenue, Deer Park, 
NY 11729, (516)586-5125. 


National Instruments Has 
File Transfer Package 
For DEC Computer Networks 


By providing IEEE-488 hardware 
and software for DEC computers, 
National Instruments can furnish a 
complete package that will accomp¬ 
lish the file-transfer task using the 
IEEE-488 bus standard as the com¬ 
munications link. The computers 
linked together in the network may 
be made up of any combination of 
UNIBUS and Q-bus based proces¬ 
sors. The NET488 network software 
is compatible with RSX-11, RT-11, 
VMS and UNIX operating systems. 

The main advantage provided by 
NET488 is the ability to transfer files 
between different operating systems 
running in different DEC computers. 
The operator interface to the file 
transfer software consists of simple 
query responses. File transfers may 
be initiated from a user written 
application program. 

A complete NET488 hardware- 
/software package for a network of 
four Q-bus computers (with 50 meter 
separation) running the RT-11 oper¬ 
ating system will cost approximately 
$15,000. 

New National Instruments pro¬ 
ducts that interface the IEEE-488 
bus to S-100 computers (GPIB-696) 
and Multibus computers (GPIB-796) 
will give DEC users file transfer 
capability to these popular microp¬ 
rocessor bus structures. 

For further information call Fran¬ 
ces Drury at (800) 531-5066 (outside 
Texas) or (512) 250-9119. 


Interactive Data Analysis 
Software for VAX and PDP-ll's 


The Minitab Project will introduce 
its new publication, the Minitab Ref¬ 
erence Manual at DEXPO East 83 in 
St. Louis, Missouri, May 22-24. The 
Minitab exhibit, Booth 711, will fea¬ 
ture the Reference Manual and the 
pocket-sized Quick Reference Card, 
as well as on-line demonstrations of 
Minitab's VAX (VMS) and PDP-11 
(RSTS/E) conversions. 

Originally designed in 1972 for 
Penn State freshmen in introductory 
statistics courses, Minitab is now 
used by 1/3 of Fortune's Top 50, 
almost every major American uni¬ 
versity and hundreds of smaller 
organizations around the world. 
Applications such as forecasting 
trends, providing decision support, 
and cross-tabulating survey results 
are just a few of the ways Minitab 
can be useful. 


Its features include flexible plot¬ 
ting, easy transformation and arith¬ 
metic, convenient data editing, 
comprehensive table-making, curve¬ 
fitting, plus a wide range of statisti¬ 
cal and data manipulation 
procedures. 

The VAX and PDP-11 conversions 
can be installed in minutes and 
consume no more resources than 
EDT. Minitab is supported on all 
models running under VMS, RT-11, 
TSX-PLUS, IAS, RSTS/E, RSX-11 
and CTS-500. Tailored specifically 
for the DEC environment, Minitab 
allows full file specifications includ¬ 
ing DECnet nodenames and features 
an on-line direct access HELP facility. 
Installation is also routine on VAX- 
11 models running under UNIX and 
DEC 10's and 20's. 

The new Reference Manual and 
Quick Reference Card are helpful 
additions to other available Minitab 
documentation: the Minitab Student 
Handbook, the Implementation Guide 
and the ABC's of EDA. Two newslet¬ 
ters are published several times a 
year. Subscriptions are free upon 
request. 

For more information about the 
Minitab Reference Manual and the 
rest of the Minitab system, write to 
the Minitab Project, 215 Pond 
Laboratory, University Park, Pen¬ 
nsylvania 16802, USA. 


S&H Computer Systems 
To Show Latest TSX-Plus 


S&H Computer Systems Inc., 
author of systems software for PDP- 
ll's, will be demonstrating their 
latest and most powerful version of 
TSX-Plus. 

Version 3.1 of TSX-Plus has 
enhancements over previous ver¬ 
sions which include the ability to 
take full advantage of 22 bit 
addressing on the Q-bus and Unibus 
machines, which are capable of sup¬ 
porting 4mb of memory. Another 
new enhancement is the ability to 
support the abort entry point for 
device handlers. 

For installations with 5 to 20 
timesharing lines, the ability to 
access 4mb will increase execution 
speed considerably by reducing job- 
wait time as well as reducing or 
even eliminating job swapping. This 
is accomplished by more users 
remaining in core, and high speed 
context swapping that requires no 

IO. 

Version 3.1 also supports a real¬ 
time program support facility that 
allows multiple real-time programs 
to be run concurrently with normal 
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time-sharing operations. TSX-Plus 
also now provides a facility that 
allows one or more shared run-time 
systems or data areas to be mapped 
into the address space of multiple 
TSX-Plus time-sharing jobs. 

Another recent feature of TSX-Plus 
is the ability to specify the maximum 
amount of memory TSX-Plus will be 
allowed to use. This enables the user 
to set an upper memory limit and all 
memory located above this limit will 
never be used by the operating 
system. This will allow the user to 
access the upper memory for over¬ 
laying programs via a user written 
handler. 

In addition, TSX-Plus allows 
approximately 8-9kb of additional 
space for device handlers, system 
features or terminal lines, thereby 
increasing the flexibility of the 
system. 

TSX-Plus also features a new real¬ 
time EMT which allows a program to 
set the user mode processor priority 
level. This can be used in a situation 
where it is necessary for a real-time 
program to block interrupts for a 
short period of time while it per¬ 
forms some critical operation. 

Most RT-11 programs can be used 
with TSX-Plus without change or 
even having to be relinked, TSX-Plus 
interfaces with standard RT-11 
device handlers (XM version) and 
supports RT-11 utility programs 
such as PIP, DIR, DUP, MACRO, 
TECO, KED and K52. (The FORMAT 
program is not supported.) Lan¬ 
guage processors available for use 
with TSX-Plus include COBOL-Plus, 
FORTRAN, BASIC, DBL and 
PASCAL-2. The TSX-Plus keyboard 
commands are an extended set of 
those provided by RT-11. TSX-Plus 
system service calls (EMTS) are 
compatible with those provided by 
RT-11. 

Other features offered by TSX-Plus 
include a transparent lineprinter 
spooling system, a real-time pro¬ 
gram support facility, data and 
directory caching facility, detached 
jobs, a log-on and usage accounting 
system, shared file access control, 
interjob message packet communi¬ 
cation, command files with parame¬ 
ters, shared run-time facility, the 
ability for the user to define system 
commands, and a program perfor¬ 
mance monitor that will print a 
histogram showing where a running 
program is spending most of its 
time. 

TSX-Plus requires a system with 
memory management, at least 128k 
bytes of memory and an RT-11 
license. 

The price for TSX-Plus version 3.1 
is $2,000. All users in support may 


receive a copy of the new version for 
the cost of media, shipping and 
handling only. All supported users 
receive the bi-monthly S&H Software 
Bulletin which includes patches, 
reported bugs, new enhancements, 
future directions of TSX-Plus, and 
more. 

Address domestic inquiries to Gary 
Manookian, and all other inquiries 
to Richard Dohrmann, at S&H Com¬ 
puter Systems, Inc. 1027 17th Ave. 
S., Nashville, TN 37212, (615)327- 
3670 Telex 786577 answer back 
S&H NAS. 


MCBA Will Highlight 
Product Costing Package 


The MCBA (Mini-Computer Busi¬ 
ness Applications, Inc.) booth will 
highlight the company's newly- 
released Standard Product Costing 
(SPC) package. SPC is the latest 
addition to the MCBA Manufactur¬ 
ing System and sixteen integrated 
manufacturing, distribution, and 
accounting packages written DIBOL 
for PDP-lls running RT-11. MCBA's 
twelve new Manufacturing System 
packages now available under 
RSTS/E (Resource Sharing Time 
Sharing/Extended) will also be fea¬ 
tured at the booth. 

MCBA's Standard Product Costing 
is an interactive, comprehensive tool 


which accurately maintains stand¬ 
ard (or estimated) costs for both 
manufacturing and accounting man¬ 
agement. SPC maintains up-to-date 
costs for all products, parts, and 
service provided by a company. 
Deviations of current cost from 
planned objectives can be spotted 
immediately through the use of 
Standard Product Costing, MCBA 
claims, and problem areas can be 
identified for management attention. 
Since SPC is integrated with 
MCBA's Inventory Management and 
Standard Product Routing packages, 
labor and material figures are auto¬ 
matically kept consistent. MCBA's 
SPC maintains both beginning-of- 
year (standard) and up-to-date (cur¬ 
rent) cost projects. Current purchase 
prices deviating from the standard 
material costs are highlighted on the 
Purchase Price Variance Report. "What 
if?" cost analysis can be done. 
Critical ratios like gross margin 
percentages and cost variances are 
provided. SPC requires MCBA's 
Inventory Management (1/M) and 
Bill of Material Processor (BOMP) 
packages. A source Code license for 
MCBA's RT-11 Standard Product 
Costing is $3,000 for one computer. 
Substantial discounts are available 
for resellers and multiple-CPU sites. 

The MCBA Manufacturing System 
packages in RSTS/E which will be 
introduced are: Customer Order Pro- 
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cessing, Accounts Receivable, Fixed 
Assets and Depreciation, Purchase 
Order and Receiving, General 
Ledger, Inventory Management, 
Accounts Payable, Payroll, Bill of 
Material Processor, Job Costing, 
Shop Floor Control, and Standard 
Product Routing. Source code 
licenses for each of the MCBA 
Manufacturing System packages in 
RSTS range from $2,500 to $4,000 
for a single computer system. Multi¬ 
ple use and reseller licenses are 
available at substantial discounts. 

The RSTS utilities used in the 
MCBA packages take full advantage 
of the power of RSTS, such as the 
ability to handle up to 64 terminals 
and to run programs in FORTRAN 
and BASIC concurrent with business 
packages in DIBOL. Yet the func¬ 
tions of the new RSTS versions of 
MCBA's packages are in most cases 
identical to the RT-11 versions. 
MCBA claims that the compatibility 
of the operational aspects of the 
RT-11 and RSTS versions of MCBA's 
packages makes moving from one 
system to the other quite simple. 
Whether transferring within a large 
company, or moving up from a 
timesharing service running RSTS to 
an independent RT-11 system, users 
can run the same MCBA packages 
with which they are familiar, with 
little retraining. 

OEMs and resellers of MCBA pro¬ 
ducts for DEC are invited to shop at 
the MCBA booth at DEXPO to dis¬ 
cuss their possible participation in 
the company's new support program. 
Dubbed SPECTRUMS (Support Pro¬ 
gram for Effective Communication 
To Resellers Using MCBA Software), 
the program is a radical departure 
from MCBA's traditional operating 
basis. Although MCBA has always 
licensed its packages with source 
code through distributors, OEMs, 
ISOs, and other resellers, the com¬ 
pany has never formalized its rela¬ 
tionships with its resellers beyond 
the licensing of the product. SPEC¬ 
TRUMS has been introduced in order 
to provide a closer, more structured 
arrangement that will benefit both 
the company and the resellers. The 
program has multiple levels and is 
similar in some respects to Digital's 
and Hewlet-Packard's programs for 
their OEMs and software suppliers. 
Resellers who qualify for the second 
level of MCBA's SPECTRUMS will be 
granted "Referenced Reseller" status 
and will be eligible to receive end 
user leads from MCBA. To qualify for 
this status, resellers will be required 
to submit an application and supply 
MCBA with a complete financial 
statement and references. 

On hand at DEXPO to provide 


consultation on the use of MCBA 
packages in the manufacturing 
marketplace will be MCBA's new 
Manufacturing Market Specialist, 

Ken Rowand. Rowand came to MCBA 
recently with 35 years of experience 
in manufacturing and computer- 
based manufacturing system design. 
He worked for Hughes Aircraft 
Company in a variety of plant 
management positions. 

MCBA is headquartered at 2441 
Honolulu Avenue, Montrose, Califor¬ 
nia 91020; (213)957-2900; 

Telex 194188. 


SMC BASIC For DEC PDP-lls 
Available From Computer 
Systems Development, Inc. 


Computer Systems Development, 
Inc. announced the immediate avail¬ 
ability of SMC BASIC on Digital 
Equipment Corporation's PDP 11 
system under the RSTS/E Operating 
System. The development of SMC 
BASIC on the DEC system was a 
joint effort of Computer Systems 
Development, Inc. (CSD) and SMC 
Software Systems, a division of 
Science Management Corporation. 

SMC BASIC, an easy to use yet 
powerful BUSINESS BASIC, is fully 
compatible with software applica¬ 
tions developed under Basic Four 
BASIC. A broad range of mature 
quality-tested software packages 
have been installed in more than 
15,000 sites during the past 10 
years in the Basic Four community. 
These packages are now available 
under SMC BASIC to the DEC-user 
community. 

SMC BASIC is the only interpre¬ 
tive language for PDP-lls that 
allows users the flexibility of using 
files under RMS-1 IK, DEC's record 
management system. RMS files may 
be defined dynamically within a 
program, and a program may have 
up to ten indexed files open at the 
same time. Other features of the 
language are business math, exten¬ 
sive built-in screen handling func¬ 
tions, automatic conversion of 
numeric data types, shareable pub¬ 
lic programs, external calls with 
recursion, and all data in common, if 
desired. 

SMC BASIC will be distributed on 
DEC equipment through Computer 
Systems Development, Inc., an eight- 
year-old software company specializ¬ 
ing in application package 
development for Digital Equipment 
Corporation and Basic Four Corpo¬ 
ration computers. 

For more information contact Jon 
Coleman, Computer Systems Devel¬ 


opment, Inc., 140 Mayhew Way, 
Suite 700, Pleasant Hill, CA 94523 
(415) 930-9932. 


Computer Systems Corp. 

To Demonstrate Both 
CALC-11 And CALC-11 Plus 


Computer Systems Corporation 
will be demonstrating both CALC-11 
PLUS and CALC-11 and VAX oper¬ 
ating the UNIX operating system. 

The CALC products by Computer 
Systems Corporation have had high 
user acceptance. The flexibility and 
reliability of these products are well 
known in the market place. Both 
products utilize the same sound 
design concepts which were used 
with the original CALC-11 product. 

In addition to the extensive added 
features, such as the very large 
spreadsheet and paging capabilities 
of the CALC-11 PLUS product, many 
of the "nice to have" features have 
been incorporated in this mature 
product. 

CALC-11 and CALC-11 PLUS are 
designed to be used for both small 
and large projects. CALC-11 may be 
used on small spreadsheets (up to 
3600 cells) whereas, CALC-11 may 
be used on extremely large spread¬ 
sheets. Spreadsheets created with 
the quicker CALC-11, can be easily 
transported to CALC-11 PLUS. This 
combined use allows for a very 
quick creation of individual sections 
of a spreadsheet which can be incor¬ 
porated into the much larger spread¬ 
sheets with CALC-11 PLUS. 

CALC-11 and CALC-11 PLUS are 
packaged together at the single unit 
price of $2,500 which includes war¬ 
ranty and one year updates. Educa¬ 
tional and volume discounts (along 
with site, facility and corporate pric¬ 
ing) are available. 

For additional information contact 
David Tortora, Computer Systems 
Corporation, 5540 Rock Hampton 
Court, Indianapolis, IN 46268, 
(317)872-7200. CALC Hotline: 1- 
800-428-0714. Telex 27-6243. 


Nassau Systems To Exhibit 
Overtemperature Protection 
Hardware Accessory For DEC 


Nassau Systems will be exhibiting 
an Overtemperature Protection 
Hardware Accessory for all Digital 
Equipment Corporation Computer 
Systems. 

This will be the first trade show 
display of an Overtemperature Pro¬ 
tection Device specifically made for 
all standard DEC Computer Sys- 
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terns. The product is designed to 
assist all DEC equipment OEM's and 
end users in preventing equipment 
damage from overtemperature con¬ 
ditions and has been endorsed by 
DEC Field Service for this purpose. 
The accessory provides a warning 
alarm and total system power shut¬ 
down at preset temperature limits 
designed to meet the environmental 
specifications in DEC computers and 
is equipped with the DEC standard 
power control and distribution sys¬ 
tems, including all PDP11, VAX, 
DECSYSTEM-20 and DECSYSTEM- 
10 equipment. 

For further information contact 
Nassau Systems, P.O. Box 19329 
Cincinnati, OH 45219, (513)231- 
1283. 


IMSL Releases Edition 9 
Of FORTRAN Library And 
Edition 4 Of TWODEPEP 


IMSL, Inc. has announced the 
release of Edition 9 of the IMSL 
Library for the Digital Equipment 
System 10/20, VAX-11 Series, and 
PDP-11 Series. This version of the 
widely used Library has an addi¬ 
tional 40 subroutines which bring 
the total to 540. Used internation¬ 
ally, it was designed for maximum 
accuracy and efficiency in mathem¬ 
atical and statistical problem 
solving. 

The IMSL Library is a comprehen¬ 
sive set of FORTRAN subroutines 
which serve as building blocks that 
are used to save costly programming 
time in developing scientific and 
engineering application programs. 
They are arranged in 17 chapters, 
covering the total field of mathemat¬ 
ics and statistics. 

Major new subroutines for Edition 
9 have been added in areas of basic 
statistics, differentiation, differential 
equations, quadrature, eigensystem 
analysis, random number genera¬ 
tion, interpolation, approximation, 
smoothing, linear algebraic equa¬ 
tions, special functions, utility func¬ 
tions, optimization, sorting, and zero 
and extremas. 

A staff of software design special¬ 
ists develops and supports the IMSL 
Library for the Digital Equipment 
computers. Experts in mathematics, 
statistics, scientific computing, pro¬ 
gramming and computer science test 
each Library subroutine for accu¬ 
racy, efficiency, and reliability. IMSL 
supplements the expertise of this 
staff with a Corporate Advisory 
Board comprised of world leaders in 
mathematics, statistics, and scientific 
computing. 


For the Digital Equipment compu¬ 
ter, the annual subscription rates for 
the IMSL Library are $2,000-$2,500 
for initial subscriptions, and $1,500- 
$2,000 for renewals. For universi¬ 
ties, the subscription rate is 
discounted 40%. 

IMSL TWODEPEP, now in Edition 
4, is an easy-to-use finite element 
program that solves time-dependent, 
steady state and eigenvalue pro¬ 
grams in general two-dimensional 
regions. TWODEPEP is useful in 
areas such as elasticity, diffusion, 
minimal surfaces, potential energy, 
Schrodinger equations, heat conduc¬ 
tion, fluid mechanics, and other 
such applications problems. By 
using a preprocessor to define prob¬ 
lems in simple, readable format, 
TWODEPEP eliminates program¬ 
ming time and is accessible to those 
with minimal training in partial dif¬ 
ferential equations. Another feature, 
TWOPLOT, is a portable graphics 
package that draws scalar, vector, 
and stress fields. 

TWODEPEP is available on the 
Digital Equipment System 10/20 
and VAX-11 Series. The annual sub¬ 
scription rates for TWODEPEP are 
$2,000 for initial subscriptions, and 
$1,500 for renewals. For universi¬ 
ties, the subscription rate is dis¬ 
counted 40%. 

For additional information contact 
IMSL, Inc., Sixth Floor - NBC Build¬ 
ing, 7500 Bellaire Blvd., Huston, TX 
77036-5085, (713) 772-1927; out¬ 
side Texas call toll free 1-800-231- 
9842, or telex 79-1923 IMSL INC 
HOU. 


Newman Computer Exchange 
To Provide Appraisals 


Newman Computer Exchange will 
be a prominent exhibitor. The multi- 
million-dollar firm is the nation's 
largest dealer in new and used DEC 
and Data General systems, proces¬ 
sors and peripherals, including an 
extensive stock of PDP8 equipment. 

Newman markets late-model min¬ 
icomputer equipment, by direct mail 
and telephone, to major corpora¬ 
tions, universities, and government 
and military agencies. 

Personnel will staff the Newman 
booth to provide equipment apprai¬ 
sal and other firsthand information. 
Also available: Catalogs, literature 
and free signup for mailing cycle, as 
well as the Newman "Blue Book" on 
converting surplus minicomputer 
equipment to cash. 

For more information contact New¬ 
man Computer Exchange, P.O. Box 
8610, Dept. P53J-DX, Ann Arbor, 

MI, 48107 (313) 994-3200. 


Northwest Digital Software 
To Unveil RPM-RSTS 
Performance Monitor 


RPM is a new performance optimi¬ 
zation package from Michael May- 
field and Northwest Digital Software. 
RPM can drastically improve total 
system performance by identifying 
problems and the problem areas 
within each program. RPM is the 
only product that can do all this. 

System tuning with RPM uses a 
step by step "cookbook" approach. 
No knowledge of system tuning or 
monitor internals is required. Prob¬ 
lem areas are identified using an 
automatic procedure which provides 
a report describing, in plain English, 
not numbers, where the system per¬ 
formance can be improved. It even 
makes suggestions for improvement. 

On-line plotting, histograms and 
other reports can be used to further 
identify problem areas. Extended 
monitor data collection allows plot¬ 
ting of information not normally 
available, such as seek distance, 
disk usage, and cache, memory, file 
processor (FIP) and small buffer 
utilization. 

The programs causing the prob¬ 
lems are then identified and can be 
examined in extreme detail. Detailed 
examination of a program includes 
CPU usage, a count of I/O requests 
and disk overhead by channel and a 
count of monitor calls and disk 
overhead by call. 

For more information, contact 
Northwest Digital Software, Inc. at 
Box 2-743, Spring Valley Road, 
Newport, WA 99156, (509)447- 
2620. 


California Computer Group 
Presents 'ULTRAVAX' System 


VAX-11 users seeking higher per¬ 
formance and lower equipment costs 
can find both in the ULTRA VAX, a 
family of "optimized" minicomputer 
systems based on Digital Equipment 
Corporation's VAX-11 CPUs. ULTRA 
VAX is the most recent addition to 
the ULTRAMINI™ line of DEC- 
compatible systems recently intro¬ 
duced by California Computer 
Group, Inc. (CCG). 

CCG now offers ULTRA 730 and 
ULTRA 750 as complete systems. In 
addition, VAX-compatible disk, tape 
and communication subsystems, 
marketed under the name ULTRAKIT, 
are available as upgrades for 
11/780 and 11/782 CPUs and for 
11/730 and 11/750 systems 
already in place. 

ULTRA VAX systems (and ULTRA 
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KIT subsystems) substitute firmware- 
driven controllers on each Unibus, 
CMI-bus or SBI-bus for the more 
traditional, discrete logic-driven con¬ 
trollers used in DEC's standard con¬ 
figurations. These microprocessor- 
based controllers permit integration 
of peripherals with larger capacities, 
faster access and lower costs than 
DEC peripherals. 

ULTRAVAX controllers comprise 
bipolar, bit-slice microprocessor 
designs incorporated onto single¬ 
board or single-board-extended 
packages that fit into available VAX 
backplane slots without modifica¬ 
tions. All basic control, status and 
data transfer operations are imple¬ 
mented by microcode. ULTRAVAX 
controllers are software-transparent 
to VAX/VMS, UNIX and DEC 
diagnostics. 

Microprocessor-based controller 
design provides VAX users a highly 
flexible means of tailoring their sys- 
tem§ to changing applications. Func¬ 
tional performance modifications in 
the ULTRAVAX are accomplished by 
simple microcode changes in the 
PROM, instead of changing entire 
modules. 

One ULTRA 750 CMI-bus disk 
controller, model CC750-X, features 
four on-board drive ports which 
allow any given drive to be set up on 
any port and changed at any time 
without reconfiguring the controller. 
As many as 32 different, predeter¬ 
mined drive combinations on the 
four disk ports may be operated 
together. Data is transferred in 32-bit 
parallel words via the CMI-bus, at 
serial rates up to 15 MHz. 

In addition to providing flexibility, 
ULTRAVAX controllers enhance stor¬ 
age capacity and eliminate speed 
bottlenecks. For example, VAX 
11/780 users with RA81 disk drives 
must interface them via the Unibus; 
the RA81's two-megabyte transfer 
rate is therefore constrained by the 
800-kilobyte transfer rate of the Uni¬ 
bus. Furthermore, this scheme limits 
the user to 1.5 gigabytes of storage 
per controller. 

However, CCG's CDS474-X con¬ 
troller/desk subsystem interfaces 
directly to the 11/780's fast SBI-bus 
(or to the CMI-bus of the 11/750) 
and provides the user a true 1.8 
megabyte per second transfer rate; a 
quiet, reliable disk drive (10,000 
hours MTBF); and a storage capacity 
of 5.5 gigabytes per controller. 

ULTRAVAX controllers also elimi¬ 
nate considerable hardware duplica¬ 
tion. In DEC's Massbus, for example, 
some control logic hardware resides 
in the RH750 or RH780 adapter; the 
balance is incorporated into individ¬ 
ual disk drives. This creates an 


unnecessary redundancy of control 
logic in multi-drive configurations, 
and an unnecessary cost to the user. 

In the ULTRAVAX, however, a 
single disk controller functionally 
emulates the entire Massbus subsys¬ 
tem, and can control multiple drives 
running under RM03, RM05, RM80, 
RP06 or RP07 emulation. The ULTRA 
75O's CC750-X controller handles 
one to four disk drives; the CC780-X 
(part of 11/780 ULTRAKIT) handles 
one to eight disk drives or a combi¬ 
nation of four disk and four mag¬ 
netic tape drives. 

As with mass storage, ULTRAVAX 
controls also improve the efficiency 
and flexibility of multiplexed com¬ 
munications. DEC's DZ11 multi¬ 
plexer, standard on all VAX systems, 
performs byte transfers at 9.6 kilo¬ 
baud. Maximum input data buffering 
is 64 characters per 16 lines. 
ULTRAVAX controllers enhance 
these performance levels by transfer¬ 
ring whole words rather than bytes 
on DMA output, operating at 19.6 
kilobaud. Input data buffering is 
expanded to 256 characters per 16 
lines. 

Unlike DEC's multiplexers which 
require up to nine backplane slots 
per 16 communication lines, and 
which are limited to one type of local 
transmission mode, ULTRAVAX com¬ 
munication controllers require only a 
single hex SPC slot for combinations 
of up to 128 remote and local 
communication lines emulating the 
user's choice of DZ11, DH11 and 
DMF32. 

While the ULTRAVAX's price-to- 
performance ratio is significantly bet¬ 
ter than a standard VAX-11/730 or 
11/750 in a smaller system configu¬ 
ration, its ratio further improves as 
the configuration becomes more 
complex. 

The enhanced capabilities of 
ULTRAVAX and ULTRAKIT are 
available without sacrifice of DEC 
warranty coverage, service or 
support. 

For further information, contact 
California Computer Group, Inc., 
3303 Harbor Boulevard, Suite G-10, 
Costa Mesa, CA 92626 (800) 854- 
7488; in California: (714) 966-1661; 
telex 183519 CCG CSMA. 


Interactive Info. Offers 
Resource Planning System 


IMCS, a manufacturing resource 
planning system from Interactive 
Information Systems, Inc., is an inte 
grated, on-line, interactive MRP II 
offering. IMCS includes state-of-the- 
art inventory, bill of materials, 


routings, material requirements 
planning, on-line master scheduling, 
shop floor control, input-output re¬ 
porting, purchasing and capacity 
requirements planning. 

IMCS is available in a BASIC 
PLUS version for the DEC PDP 11 
family. It is also available in VAX 
NATIVE BASIC for the VAX family, 
utilizing Datatrieve, RMS and VMS 
features. 

IFAS, a companion set to IMCS, is 
an interactive financial accounting 
system. 

For further information contact: 
Interactive Information Systems, 

Inc., 10 Knollcrest Drive, Cincinnati, 
OH 45237, (513) 761-0132 or 5757 
West Century Boulevard, Los 
Angeles, CA 90045, (213) 670- 
9340. 
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CLASSIFIED 


Send Classified Ads to: RSTS Classified. P.0. Box 361. Ft. Washington. PA 19034-0361. 

s 1°° per word, first 12 words free with one year s subscription. [Be sure to include a phone number or address 

in your message.] 


DEC BEST VALUES 


PRE-OWNED DEC EQUIPMENT 


The FAMOUS 
RSTS PROFESSIONAL 
TEE-SHIRT 


BUYING AND SELLING 
SYSTEMS • CPU's • PERIPHERALS • TERMINALS 
OPTIONS • MEMORY • COMPATIBLES 


CALL DICK BAKER (305) 979-2844 


dataware 

incorporated 


1500 NW 62nd St.. Suite 512 
Ft. Lauderdale, Florida 33309 
Telephone (305) 771-7600 



is now for sale! 

Send size desired and S6.95 
for each shirt to: 

RSTS TEE-SHIRT 
P.O. Box 361 

Ft. Washington. PA 19034-0361 

Shirts available in adults sizes only: 
Small - Medium - large - X-Large 



MCBA CTS300, CTS500 Application software 
packages 50% off. Word-11 20% off. CTS300 
license $1500. Serban Constantine, Ameri¬ 
can Management & Information Services, 
(713) 496-7584. 


Buy, Sell, Trade: DEC Systems, Parts, Periph¬ 
erals. Call Paul, Digital Computer Exchange, 
Inc., 27892 Adobe Court, Hayward, CA 94542. 
(415) 886-8088. 


COMMUNICATIONS SOFTWARE. Transmit 
ASCII or binary files with full integrity check¬ 
ing to and from other systems. Easy to use. 
Available on RSTS. Soon to be available on 
VAX. $500.00 Schafer Company, P.O. Box 
773, Bellevue, WA 98009, (206) 641-3938. 


Customized Software In Terminals That 
Travel. A complete system for remote data 
entry and storage on hand-held Telxon 
micro-computers with full communications 
to DEC PDP11 under RT11/CTS-300 or 
RSTS/E. Customized data entry and prompt¬ 
ing. Call or write: Computer Applications 
Technology, Inc., 7316 Wisconsin Avenue, 
Suite 407, Bethesda, MD 20814, (301) 
657-4210. 


Wanted for Chemical Trading Company: A 
system house which can realize a complete 
EDP system (hardware and software). Please 
write to Forwarding Box R, c/o RSTS Profes¬ 
sional, P.O. Box 361, Ft. Washington, PA 
19034. 


BACK ISSUE OFFER 
ALL 16 BACK ISSUES OF 
THE RSTS PROFESSIONAL 
$100.00 

Send check to: RSTS PROFESSIONAL, 
Box 361, Ft. Washington, Pa. 19034-0361. 

— Payment Must Accompany Order — 


ACCOUNTING 

SOFTWARE 


Tired of fooling oround with occounting applica¬ 
tions? In need of effective, timely financial infor¬ 
mation? Call PLYCOM for software that is easy to 
use, yet extremely effective. Gives you the tools to 
quickly zero in on your accounting problems. Com¬ 
plete support and training. Excellent documenta¬ 
tion. Specifically designed for PDP-1 l’s using RSTS E 
or CTS-500. Includes: 

• Accounts Payable 

• General Ledger 

• Financial Reporting 

• Payroll 

• Accounts Receivable 

• Fixed Assets Reporting 

• Time Analysis 

• Financial Modeling 

Plyccm m sen/ices. inc. 

P.O. Box 160 
Plymouth, IN 46563 
(219) 935-5121 



Classified ads are priced at $1.00 per word. 
Display ads are $35.00 per column inch, plus 
$1.00 per word. If we set. this includes 
border and 2 lines in bolder and/or larger 
type size, if desired. — please specify. 


RSTS 

RESCUE SQUAD 

We salvage all kinds of disasters: 

• unreadable disks 

• ruined UFDs and MFDs repaired 

• immediate response 

• telephone DIAL-UP 

• on-site 

• software tools 

• custom recovery 

• 90% success to date 

• more than 1 GB rescued to date 

Brought to you by 

On Track Systems, Inc. 

and a well known (and read) 
RSTS expert. 

CALL 24 HOURS 
215-542-7008 


College senior seeks programming position 
in Los Angeles area. Four years experience 
on RSTS/E System, including ad¬ 
ministrative programming. Excellent 
credentials. Call Carla at 712-546-7081, 
ext. 317. (Central Business Hours.) 


LOOKING FOR 
DEVELOPMENTTIME? 


NO KIL0C0RE TICK CHARGES 
NO CPU CHARGES 

RSTS E TIME j 


PER HOUR 
CONNECT 
TIME 


BASIC PLUS 2 

COBOL 

BASIC PLUS ^ WITH CROSS 
PASCAL > COMPILER 
C J SUPPORT 

WORD-11 WORD PROCESSING 

TECO \ pr 0GRAM 
EDT J 

by 


BUDGET 
BYTES 
212 - 
v 944-9230> 


EDITING 


computer. 

1 1430 Broadway. New York. N.Y. 10018 



Software 

Techniques 

Incorporated 


Want to work in a shirt 
sleeve environment? 
Advance the state of the art 
in VAX/VMS and RSTS/E? 

If you have experience in analysis 
and design using BASIC-PLUS-2 
and RMS-11, send resume and 
salary history to: 


Steve Davis 

Software Techniques, Inc. 
5242 Katella Avenue 
Suite 101 

Los Alamitos, CA 90720 
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RSTS/E INTERNALS MANUAL 


The RSTS community has been clamoring for years for a book that details the inner workings of RSTS/E. 
Well, clamor no more. Michael Mayfield of Northwest Digital Software, and M Systems, the publisher of The 
RSTS Professional and The DEC Professional Magazines, have teamed up to produce the RSTS/E Monitor Inter¬ 
nals Manual. 



This manual describes the internal workings and data structures of the RSTS/E monitor. It also notes dif¬ 
ferences in the internal structures between version 7.1 and earlier versions of the monitor. Future updates will in¬ 
clude changes for new versions of the monitor. 

Information is available for all levels of users: 

• Gain a basic understanding of the workings of the 
monitor for optimizing system performance. 

• Information on disk structures allows recovery of 
data from corrupted disk packs. 

• Special uses of runtime systems and residen 
libraries allow complex applications to 
developed without degrading system perform 

• Write your own custom device drivers 
“foreign” device you need to add but thoug 
couldn’t. 

CONTENTS: 

Chapter 1 describes the structures used 
monitor that are resident on disk. These include 
directory structure, disk allocation tables, Save Im¬ 
age Library (SIL) formats, bootstrap formats and bad 
block mapping. ' 

Chapter 2 describes the tables used within the 
monitor to control system resources and provide pro¬ 
gram services. These tables provide job, memory, file 
and device control, as well as program services such 
as interjob communication. 




Chapter 3 contains information on writing and in¬ 
stalling a custom device driver. It describes the entry 
points and information the driver must provide to the 
monitor as well as the subroutines and macros the 

onitor provides for the driver. 

I 

Chapter 4 contains information that enhances in¬ 
formation already provided by Digital on writing 
custom resident libraries and runtime systems. It con¬ 
centrates mainly on non-standard uses of resident 
ibraries and runtime systems to increase system per- 
rmance and functionality. 

Appendix A provides six quick reference foldout 
charts: 

The directory structure. 

The monitor tables. 

Fixed memory locations and common data 
structures. 

Monitor subroutines. 

Device driver entry points. 

Device driver macros. 



Appendix B provides examples of the peek se¬ 
quences required to access most of the monitor 
tables. It also contains an example program that uses 
many of the monitor tables to display a job and open 
files status. 


Appendix C provides an example device driver. 


Appendix D provides an example runtime system 
that doubles as a menu system for restricting 
specified users to a menu of options. 
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If you’re in the market for 
communications modules, 
make the ABLE connection now. 

And join the thousands who 

already have. 



We are known as the innovators. Most of our 
products are industry "firsts” which become 
popular quickly, then settle into a stage 
of steady long-term acceptance. These four 
DEC-compatible, communications devices fit 
the pattern perfectly. They are ABLE orig¬ 
inals. They achieved instant success world¬ 
wide. They provide top performance. And 
they are very reliable. Read on to find the 
one for you. 

INCREASED VAX THROUGHPUT. 

Here’s an asynchro¬ 
nous microcontroller 
with programmable 
DMA, fully transpar¬ 
ent to VAX/VMS as 
two 8-line DMF 32’s 
able vmz/32" and contained on a 

16-line DMF/32 subset gingle p r j ced 

below the DZ11-E, it outperforms DZ or DH 
devices under VMS v.3, has interrupt-driven 
modem control on every line, and includes an 
output throttle which lets peripheral devices 
optimize their own data rate. 

#1 UNIBUS DMA. 

Then there’s our 
DH/DM, the original 
multiplexer which 
puts 16 lines with 
modem control on . 
a single board. This 
popular device meets 
UNIX VAX system 
needs for DMA communications require¬ 
ments, serves UNIBUS systems equally well, 
and beats them all for MTBF, throughput and 



ABLE DH/DM” 

16-line combination DHll 
& DM11 replacement 


price. Other features include on-board diag¬ 
nostics, modem control on all lines, superior 
on-board silo depth and variable prom-set. 

SYNC/ASYNC FLEXIBILITY. 

A controller for 


f * iiii 








ABLE DV/16 
16-line DVll replacement 


the PDP-11 user, the 
DV/16 contributes 
microprocessor- 
derived flexibility, 
which permits mix¬ 
ing of sync and async 
lines in combinations 
of 4 or 8 lines with modem control and full 
system software compatibility. It takes less 
than half the space of a DVll and uses word 
transfer instead of byte DMA to gain a 2 to 
1 speed advantage or permit operation in half 
the bandwidth required for data transfers. 
Q-BUS DMA. 

The Q/DH is an asynchro¬ 
nous controller which 
makes DH-class perform¬ 
ance possible on PDP-11/23 
and LSI-11/23 Q-BUS 
systems. It connects the 
standard Q-BUS to as 
many as 16 async lines 
with DMA output capabil¬ 
ities and allows optimum Q-BUS utilization. 
Features include software compatibility with 
RSTS/E and RSX operating systems, large 
input silo, modem control on all lines. 

Write for details on our complete line of 
DEC-compatible products. Be on the lookout 
for exciting new ABLE communications 
products soon to come. 



ABLE Q/DH” 

8 or 16-line DH/DM 
for Q-BUS 


For Immediate, Toll-Free Information, Dial 800 332 ABLE. 


f •kV/l Ub i) ri :1 


CORPORATE OFFICES 

ABLE COMPUTER 

1732 Reynolds Avenue 

Irvine, CA 92714 • (714) 979-7030 


NATIONAL OFFICES 

Burlington, MA (617) 272-1330 
Irvine, CA (714) 979-7030 


INTERNATIONAL OFFICES 

Canada (Toronto) (416) 270-8086 
England (Newbury) (0635) 32125 
W. Germany (Munich) 089/463080 


COME SEE US AT NCC-ANAHEIM AND DEXPO EAST 83 IN MAY. 


DEC, PDP, UNIBUS, Q-BUS, LSI, VAX and VMS are trademarks of Digital Equipment Corporation. 
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IB Graph for DEC users. 

The most cost-effective way to get in touch 

with your data. 


Meet the latest Used Software 
package from Data Processing 
Design, Inc. It’s called IB Graph™ 
Nothing less than the most com¬ 
plete, most cost-effective system 
for business graphics on Digital 
PDP-11™ and VAX™ processors. 

Of course, you could buy 
more expensive graphics soft¬ 
ware, but you’d probably end 
up with more capabilities than 
you’d actually need-which 
wouldn’t be cost-effective. Or 
you could buy less expensive 
graphics software, that simply 
can’t do the job. Again, not very 
cost-effective. IB Graph is the 
ideal compromise, giving you 
literally everything you need, 
and no more. 


IB Graph is a multi-user, 
interactive businss graphics 
system that lets you generate 
graphs in minutes instead of 
days. And get quality, full-color 
bar charts, line charts, or pie 
charts for immediate publication 
or presentation. With IB Graph, 
you can better visualize and 
analyze your data. You can make 
quicker decisions and increase 
your efficiency-not to mention 
your company’s profits. Best 
of all, IB Graph is easy to learn 
and simple to use, whether you 
have no experience in com¬ 
puters at all, or are an experi¬ 
enced programmer. 

IB Graph outputs to a vari¬ 
ety of graphic CRTs and plotting 


devices. And it will continue to 
be compatible with future hard¬ 
ware announcements by DEC. 

If you’d like more informa¬ 
tion, call or write to us at DPD. 
We’ll be happy to tell you more 
about IB Graph. 

IB Graph. You can buy a 
more expensive system. Or a 
less effective one. 

You can’t buy a better one. 



) 


CORPORATE OFFICE • 181W. Orangethorpe, Suite F • Placentia, CA 92670 • 714-993-4160 Telex 182-278 

PDP-11, and VAX are registered trademarks of Digital Equipment Corporation. IB Graph is a registered trademark of Data Processing Design, Inc. 
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